Como copiar um diretório e todo seu conteudo?
Olá pessoal como faço pra copiar um diretório e todo seu conteudo (incluindo arquivos e subdiretórios), para outra pasta? Eu uso delphi 5.
Valew!!!
Valew!!!
Jc
Curtidas 0
Respostas
Bilouro
18/03/2003
Olá pessoal como faço pra copiar um diretório e todo seu conteudo (incluindo arquivos e subdiretórios), para outra pasta? Eu uso delphi 5.
Valew!!!
rapidamente?!?
usa winexec e xcopy...
[]´s
GOSTEI 0
Jc
18/03/2003
rapidamente?!?
usa winexec e xcopy...
[]´s
????? Como eu uso com o Delphi 5 ????
Quero fazer um programa em Delphi que faça isso pra mim !!!!
GOSTEI 0
Bilouro
18/03/2003
TENTEI ISSO MAS NÃO CONSEGUI: ALGUEM AJUDE!!!!
WinExec(´XCOPY /Y/E C:\SCH D:\´,SW_HIDE);
Acho que vai ter que ser pelo delphi mesmo...
WinExec(´XCOPY /Y/E C:\SCH D:\´,SW_HIDE);
Acho que vai ter que ser pelo delphi mesmo...
GOSTEI 0
Ageualves
18/03/2003
Tente Isso:
-----------
procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
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), true) then
ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino);
end;
I := FindNext(SR);
end;
end;
Observações
No exemplo acima, se o arquivo já existir no destino, a função falha (não copia). Para que a função possa sobreescrever o arquivo destino (caso exista), altere o último parâmetro de CopyFile para false.
-----------
procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
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), true) then
ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino);
end;
I := FindNext(SR);
end;
end;
Observações
No exemplo acima, se o arquivo já existir no destino, a função falha (não copia). Para que a função possa sobreescrever o arquivo destino (caso exista), altere o último parâmetro de CopyFile para false.
GOSTEI 0
Thiagopedro
18/03/2003
TENTEI ISSO MAS NÃO CONSEGUI: ALGUEM AJUDE!!!!
WinExec(´XCOPY /Y/E C:\SCH D:\´,SW_HIDE);
Acho que vai ter que ser pelo delphi mesmo...
colega se não me falha a memória os parâmetros do xcopy devem ser usados depois do local de origem e destino.
consulte no cmd: xcopy /?
GOSTEI 0