copia de seguridad

[azaagh]

supongo que es este del que me hablas:

si no te resulta muy molesto....podrias comentarlo? es que no solo me quiero limitar a copiar...tambien habra que aprender...(digo yo)

Código Delphi [-]
procedure CopyDirectory(Origen, Destino: string);
var
  Files : integer;
  FOrigen : string;
  FDestino : string;
  ok : boolean;
  Search : TSearchRec;
begin
  Files := FindFirst(Origen + '\*.*', faAnyFile, Search);
  while Files = 0 do
  begin
    if Search.Attr <> faDirectory then
    begin
      FOrigen := Origen + '\' + Search.Name;
      FDestino := Destino + '\' + Search.Name;
      ok := CopyFile(PChar(FOrigen), PChar(FDestino), false);
      if not ok then ShowMessage('No se pudo copiar el fichero: ' + Search.Name);
    end
    else
    begin
      if (Search.Name <> '.') and (Search.Name <> '..') then
      begin
        ok := CreateDir(Destino + '\' + Search.Name);
        if not ok then ShowMessage('No se pudo crear el directorio: ' + Search.Name)
        else CopyDirectory(Origen + '\' + Search.Name, Destino + '\' + Search.Name);
      end;
    end;
    Files := FindNext(Search);
  end;
  FindClose(Search);
end;

pues lo dicho, hay muchas funciones que desconozco...haber si comentas que hace exactamente cada cosa....