Как скопировать папку вместе с папками и файлами?

← →
ilnarab (2004-10-01 16:25) [0]

Как скопировать папку вместе с папками и файлами.
Вот проблема у меня такая. Не могу програмно переместить файлы и папки из одной деректории в другую. Пытался с помощью
Procedure FileCopy(Const FromName, InName: String);
Var
S,T : TFileStream;
Begin
if FileExists(FromName) then
begin
S := TFileStream.Create(FromName, fmOpenRead );
try
T := TFileStream.Create(InName, fmOpenWrite or fmCreate);
try
T.CopyFrom(S, S.Size );
FileSetDate(T.Handle, FileGetDate(S.Handle));
finally
T.Free;
end;
finally S.Free;

end;
end
else
Showmessage("Файл "+FromName+" не существует!");
end;
но нет!
он не копировывает фаилы без папок.
подскожите а.
или хотя бы как создать папку програмно.

← →
TUser © (2004-10-01 16:27) [1]

SHFileOperation

SHFileOperation ?

Как скопировать папку вместе с папками и файлами? Найти похожие ветки