copia de arquivos usando *.* URGENTE.......

04/02/2003

2

Estou usando a rotina abaixo ....

i:=findfirst(´c:\origem\*.*´, faAnyFile,SR);
while i=0 do
begin
if (SR.ATTr and faDirectory) <> faDirectory then
begin
Origem:=´C:\Origem\´+SR.Name;
Destino:=´C:\Destino\´+sr.name;
if not copyfile (pchar(origem), pchar(destino),false) then
showmessage(´Erro ao copiar ´+ Origem+´ para ´+Destino);
end;
p:=findnext(sr);
end;
end;

Quando copio do diretorio onde estão os bancos de dados para outro diretorio funciona normal, mas não ocorre o mesmo se fizer o caminho inverso....

Alguem pode me ajudar ....


Anonymous

Anonymous

Responder

Posts

04/02/2003

Rubensavelino

Vc solicitou que ao copiar se for encontrado nao copie

if not copyfile (pchar(origem), pchar(destino),false) then

substitua por
if not copyfile (pchar(origem), pchar(destino),true) then

Esta avisando que o arquivo ja existe


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar