Eu uso este codigo aqui para copiar arquivos de uma pasta para outra pasta....porem ele só copia os arquivos...Não copia as subpastas ...
procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
Begin
I := FindFirst(EditOrigem.text + '\*.*', faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then begin
Origem := EditOrigem.text +'\'+ SR.Name;
Destino := EditDestino.text +'\'+ SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), FALSE) then
ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
end;
I := FindNext(SR);
End;
Teria como copiar tudo que esta na pasta, arquivos, pastas em fim tudo?
Pergunta
Eder
Ola...
Eu uso este codigo aqui para copiar arquivos de uma pasta para outra pasta....porem ele só copia os arquivos...Não copia as subpastas ...
Teria como copiar tudo que esta na pasta, arquivos, pastas em fim tudo?
Grato
Editado por EderLink para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.