Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.034 c