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

Ищу процедуру копирования директории   Найти похожие ветки 

← →
Маленький мук   (2006-01-26 12:31) [0]

Может у кого то написана такая вещь? Скопировать все файлы директории в другую? В стандартных функция этого не нашёл..

---

← →
begin...end ©   (2006-01-26 12:33) [1]

SHFileOperation (модуль ShellAPI).

---

← →
DesWind ©   (2006-01-26 12:36) [2]

FindFirst;FindNext;CopyFile

---

← →
СержК   (2006-01-26 12:58) [3]

Пользуйся, самому на днях подсказали.
RemoteDir - директория из которой нужно скопировать все файлы

procedure TFormMain.File_in_RemoteDirectory(RemoteDir: string);
var f: TSearchRec;
begin
FindFirst(RemoteDir+"*.*", faAnyFile, f);

while FindNext(f)=0 do
 begin
 if (f.Name<>".") and (f.Name<>"..") then
    begin
    //RemoteDir+f.Name - поочередно каждый файл в директории копируй
    //куда хочеш
    end;
 end;

FindClose(f);
end;

---

← →
Маленький мук   (2006-01-26 13:29) [4]

А вот если через SHFileOperation  делать - то можно кусочек кода. Там структуру надо объявить, и заполнить... Пример малюхонький :)

---

← →
Amoeba ©   (2006-01-26 13:59) [5]

Статью как использовать SHFileOperation найдешь здесь:
http://www.delphikingdom.com/asp/viewitem.asp?UrlItem=/mastering/fileshellapi.htm

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.03 c