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

← →
Маленький мук (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 делать - то можно кусочек кода. Там структуру надо объявить, и заполнить... Пример малюхонький :)

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

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