Programa de Backup do NFSU 2

Delphi

02/03/2005

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 Settings\Hills\configurações locais\dados de aplicativos\NFS Underground 2) para D: então para isso
usei os seguintes comandos :


procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
I := FindFirst(´C:\Documents and Settings\Hills\configurações locais\dados de aplicativos\NFS Underground 2\*.*´, faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) faDirectory then begin
Origem := ´C:\Documents and Settings\Hills\configurações locais\dados de aplicativos\NFS Underground 2\´ + SR.Name;
Destino := ´C:\EU\´ + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), true) then
ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino);
end;
I := FindNext(SR);
end;
end;


Não deu certo será que estes comandos não copiam pastas????



Ajuda !!!!!


Quartier

Quartier

Curtidas 0

Respostas

Massuda

Massuda

02/03/2005

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.


GOSTEI 0
Quartier

Quartier

02/03/2005

cara o problema não é o destino mas sim a copia

pois ele não copia pastas

queria saber como ??


GOSTEI 0
Massuda

Massuda

02/03/2005

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;



GOSTEI 0
POSTAR