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....

[jachguate]

Te recomiendo que utilices la ayuda del propio Delphi. El algoritmo es bastante sencillo y aprovechas la oportunidad para aprender a explotar la (buena) ayuda de la herramienta.

Basta que ubiques el cursor sobre cualquier función o procedimiento en el editor, y pulses F1, para ir directo a la ayuda de esa rutina.

Hasta luego.

[__cadetill]

Veamos

Te explico a grandes rasgos lo que hace la función. Luego buscamos en la ayuda las funciones de Delphi que no conozcamos (como dice el amigo Juan Antonio) y, si te queda alguna duda, lo volvemos a hablar

Básicamente es una función recursiva, es decir, es una función que se llama a si misma si fuera necesario.

Qué es lo que hace? Bien, es sencillo. Lo que hace es leer todos los archivos que hay en una carpeta (directorio) mediante un bucle (while). Si el archivo leido es otra carpeta (exceptualdo el '.' (que es el propio directorio) y '..' (que es el directorio padre)), vuelve a hacer la llamada a la función pasándole como parámetro la nueva carpeta

Si es un archivo normal, simplemente copia el archivo de la carpeta origen a la destino.

Es así de sencillo. Te aconsejo que mires en la ayuda sobre TSearchRect, FindFirst, FindNext y FindClose y si tienes más dudas..... vuelve por aquí

Espero te sirva la explicación