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