Copiando pastas e subpastas

Question

pessoal estou utilizandu o seguinte codigo para copiar arquivos[code:1:232371a966]begin  if CheckBox1.State = cbChecked then  I := FindFirst(Edit1.Text + �*.*�, faAnyFile, SR);  while I = 0 do       b...

Kapak · Accepted Answer

Se ajudar, vc pode copiar no padr�o Windows:

uses ShellApi;
var SH:SHFILEOPSTRUCT;
begin
  FillChar(SH, SizeOf(SH), 0);
  SH.Wnd    := Handle;
  SH.wFunc  := FO_Copy;
  SH.pFrom  := �c:\Pasta Origem\*.*�+#0;
  SH.pTo    := �c:\Pasta Destino�+0;
  SH.fFlags := FOF_Allowundo;
  SHFileOperation(SH);
end;

Massuda · Answer

Esta rotina lista arquivos em um diret�rio e seus subdiret�rios. Adapte ela para suas necessidades:

procedure ListarArquivos(const Path: string; const Lista: TStrings);
var
  Search: TSearchRec;
  Done: Boolean;
begin
  Done := FindFirst(Path + �\*.*�, faAnyFile, Search) <> 0;
  while not Done do begin
    if (Search.Attr and faDirectory) = faDirectory then begin
      if (Search.Name <> �.�) and (Search.Name <> �..�) then begin
        ListarArquivos(Path + �\� + Search.Name, Lista);
      end;
    end
    else begin
      Lista.Add(Path + �\� + Search.Name);
    end;
    Done := FindNext(Search) <> 0;
  end;
end;

Klaveren · Answer

pessoal ve se alguem poderia me dar uma maunzinha...

no exemplo abaixo...

C�digo: 
procedure ListarArquivos(const Path: string; const Lista: TStrings); 
var 
  Search: TSearchRec; 
  Done: Boolean; 
begin 
  Done := FindFirst(Path + �\*.*�, faAnyFile, Search) <> 0; 
  while not Done do begin 
    if (Search.Attr and faDirectory) = faDirectory then begin 
      if (Search.Name <> �.�) and (Search.Name <> �..�) then begin 
        ListarArquivos(Path + �\� + Search.Name, Lista); 
      end; 
    end 
    else begin 
      Lista.Add(Path + �\� + Search.Name); 
    end; 
    Done := FindNext(Search) <> 0; 
  end; 
end;

o que vem a ser este [b:6a48751529][color=red:6a48751529]ListarArquivos [/color:6a48751529][/b:6a48751529]e o [b:6a48751529][color=red:6a48751529]Lista[/color:6a48751529][/b:6a48751529] mais ao fim da linha

ListarArquivos(Path + �\� + Search.Name, Lista);

Se alguem poder me ajudar, ficarei grato!!!!!!!!

flw

Massuda · Answer

[quote:a02e41fe6f=�klaveren�]...o que vem a ser este [b:a02e41fe6f][color=red:a02e41fe6f]ListarArquivos [/color:a02e41fe6f][/b:a02e41fe6f]e o [b:a02e41fe6f][color=red:a02e41fe6f]Lista[/color:a02e41fe6f][/b:a02e41fe6f] mais ao fim da linha[/quote:a02e41fe6f]A rotina � recursiva e serve para gerar uma lista de arquivos existentes em um diret�rio e seus subdiret�rios.Adaptando ela para c�pia de arquivos, ficaria algo assim (n�o testei)...[code:1:a02e41fe6f]uses SysUtils, FileCtrl, ...procedure CopiarArquivos(De, Para: string); var Search: TSearchRec; Done: Boolean; begin IncludeTrailingBackslash(De); IncludeTrailingBackslash(Para); Done := FindFirst(De + �*.*�, faAnyFile, Search) <> 0; while not Done do begin if (Search.Attr and faDirectory) = faDirectory then begin if (Search.Name <> �.�) and (Search.Name <> �..�) then begin ForceDirectories(Para + Search.Name); CopiarArquivos(De + Search.Name, Para + Search.Name); end; end else begin if not CopyFile(PChar(De + Search.Name), PChar(Para + Search.Name), True) then begin // trata erro na c�pia end; end; Done := FindNext(Search) <> 0; end; end;[/code:1:a02e41fe6f]...

Klaveren · Answer

Pessoal vejam...[code:1:0bc2d4478a]        TForm1.Button1Click(�c:sisbkp� + Search.Name, �c:bkp� + Search.Name);[/code:1:0bc2d4478a]nesta linha da a seguinte mensagem de erro:[b:0bc2d4478a][Warning] Unit1.pas(31): Symbol �IncludeTrailingBackslash� is specific to a platform[/b:0bc2d4478a]alguem sabe o que issu quer dizer???            tks...

Klaveren · Answer

up...

Klaveren · Answer

help me!please...

Eriene Stringhetta · Answer

Funciona perfeitamente!...

F�rum Copiando pastas e subpastas #271069