Programa de Backup do NFSU 2

Question

Iae,      Estou Fazendo um programa que faz o backup dos jogos salvos de um jogo ele � simples a unica coisa que faz � copiar a pasta   NFS Underground 2     (C:Documents and SettingsHillsconfigura...

Massuda · Answer

O diret�rio de destino j� existe quando o CopyFile � executado? A fun��o CopyFile n�o ir� criar o diret�rio de destino; para isso, use a fun��o [url=http://www.delphibasics.co.uk/RTL.asp?Name=MkDir]MkDir[/url] ou ForceDirectories da unit FileCtrl.

Quartier · Answer

cara o problema n�o � o destino mas sim a copia pois ele n�o copia pastasqueria saber como ??...

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;

F�rum Programa de Backup do NFSU 2 #270685