Привет всем...

Подскажите, а лучше дайте исходник (если есть).
Как скопировать папку с файлами и подпапками?

Используй рекурсию. Примерно так же, как при поиске файла. На форуме недавно обсуждалось.

Воспользуйтесь поиском по форуму. Ну уж, а в нашем FAQ - это точно есть.

У меня вот такая сістема хорошо пока работает:

type
TCopyingProgress = procedure(bytes : integer) of object;

.......................................................

procedure directorycopy(startdirectory, movedirectory : string;OnProgress : TCopyingProgress); forward;

........................................................

procedure createdirA(dir : string);
var i:integer;
begin
if length(dir)<3 then exit;
for i:=1 to length(dir) do
try
if (dir[i]='\') or (i=length(dir)) then createdir(copy(dir,1,i));
except
exit;
end;
end;

.....................................

function FileCopy(InFile,OutFile: String):boolean;
var
InFS,OutFS: TFileStream;
begin
try
InFS := TFileStream.Create( InFile, fmOpenRead );
OutFS := TFileStream.Create( OutFile, fmCreate );
InFS.Seek( 0, soFromBeginning );
OutFS.CopyFrom( InFS, 0 );
result:=true;
except
result:=false;
end;
try
InFS.Free;
except
end;
try
OutFS.Free;
except
end;
end;

............................................

procedure directorycopy(startdirectory, movedirectory : string;OnProgress : TCopyingProgress);
Var
Found : integer;
SearchRec : TSearchRec;
f:textfile;
begin
createdira(movedirectory);
try
If startdirectory[length(startdirectory)]<>'\' then startdirectory:=startdirectory+'\';
Found := FindFirst(startdirectory+'*.*', faAnyFile, SearchRec);
while Found = 0 do
begin
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
begin
If fileexists(startdirectory+SearchRec.Name) then begin
try
filecopy( startdirectory+SearchRec.Name, movedirectory+'\'+SearchRec.Name);
Application.ProcessMessages;
assignfile(f,startdirectory+SearchRec.Name);
reset(f);
If assigned(OnProgress) then OnProgress(filesize(f));
closefile(f);
except;
end;
end else If directoryexists(startdirectory+SearchRec.Name) then directorycopy(startdirectory+SearchRec.Name, movedirectory+'\'+SearchRec.Name,onprogress);
end;
Found := sysutils.FindNext(SearchRec);
end;
FindClose(SearchRec);
except
end;
end;

ShFileOperation

спасибо