Текущий архив: 2004.10.17;
Скачать: CL | DM;
Вниз
Как скопировать папку вместе с папками и файлами? Найти похожие ветки
← →
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
← →
[lamer]Barmaglot © (2004-10-01 16:29) [2]SHFileOperation ?
Страницы: 1 вся ветка
Текущий архив: 2004.10.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.037 c
