F�rum copiando pastas e arquivos ao mesmo tempo #273307

21/03/2005

ae pessoal, tava pesquisando alguns t�picos j� existentes no forum e consegui fazer um sisteminha q copia os arquivos pra determinada pasta criada remotamente, s� q eu s� to conseguindo copiar os aquivos q estao na pasta de origem, as pastas e subpastas existentes dentro do diret�rio de origem eu nao consigo copiar com o codigo atual, pe�o ajuda a vcs q me ajudem a adaptar o meu codigo pra q ele copie pastas e subpastas, o codigo ta ae abaixo

procedure TF_Principal.BitBtn1Click(Sender: TObject);
var
   SR: TSearchRec;
   I: integer;
   Origem, Destino: string;
   data,hora:string;
begin
  formdata.Time:=time();
  formdata.Date:=date();
  data:=copy(datetostr(formdata.date),1,2)+�-�+copy(datetostr(formdata.date),4,2)+�-�+copy(datetostr(formdata.date),7,4);
  hora:=copy(timetostr(formdata.time),1,2)+�-�+copy(timetostr(formdata.time),4,2);
  diretorio1:=((Edit2.Text)+�\�+(edit4.Text)+� �+data+� �+hora);
  ForceDirectories (diretorio1);

  I := FindFirst((edit1.Text)+�\*.*�, faAnyFile, SR);
  while I = 0 do begin
  if (SR.Attr and faDirectory) <> faDirectory then begin
  Origem := (edit1.Text)+�\� + SR.Name;
  Destino := diretorio1+�\� + SR.Name;
  if not CopyFile(PChar(Origem), PChar(Destino), false) then
  ShowMessage(�Erro ao copiar � + Origem + � para � + Destino);
end;
I := FindNext(SR);
end;
  showmessage(�Backup Efetuado com sucesso em: �#1313+diretorio1);
end;

Tiagocorsi

Curtir t�pico

+ 0

Responder