| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как скопировать папку вместе с папками и файлами? [D7, Win95/98, NT4, Win2k, WinXP]
ilnarab © (2004-10-01 16:25:00)Как скопировать папку вместе с папками и файлами.
Вот проблема у меня такая. Не могу програмно переместить файлы и папки из одной деректории в другую. Пытался с помощью
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;
но нет!
он не копировывает фаилы без папок.
подскожите а.
или хотя бы как создать папку програмно.
[lamer]Barmaglot (2004-10-01 16:29:00) [1]SHFileOperation ?
TUser (2004-10-01 16:27:00) [2]SHFileOperation
| |
