Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Вложенность 


MMarat   (2002-04-16 13:50) [0]

Народ. Такой проблем, че-то башка совсем перестала варить, никак не могу сообразить. В общем есь каталог. В нем могут быть вложенные папки, в которых в свою очередь тоже... и т.д. Из них всех нужно выбрать файлы и скопировать в определенное место.
таким макаром я копирую из одной папки:

var found:integer;
SearchRec:tSearchRec;
path:string;
begin
path:="c:\папка\";
Found := FindFirst(path+"*.txt", faAnyFile, SearchRec);
while Found = 0 do
begin
CopyFile(pchar(path+SearchRec.Name), pchar("d:\txt\"+SearchRec.Name), false);
Found := FindNext(SearchRec);
end;
FindClose(SearchRec)
end;

Понимаю что надо циклить, делать че-то типа рекурсии - и че-то никак не соображу...



MBo   (2002-04-16 13:54) [1]

в FAQ посмотри



Song   (2002-04-16 13:55) [2]

FAQ...

http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=1015254946&n=19



MMarat   (2002-04-16 15:40) [3]

Спасиба !




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.057 c
3-94299           Viktor1               2002-04-07 00:28  2002.04.29  
Как сделать вх. номер?


3-94317           AndreyP               2002-04-09 13:23  2002.04.29  
Показ результата выборки


6-94525           yaJohn                2002-02-13 15:56  2002.04.29  
SOCKS5 server


3-94296           Softmaster            2002-04-08 12:27  2002.04.29  
Восстановление базы Interbase


3-94261           Buh                   2002-04-07 12:36  2002.04.29  
Как вставить записи из dbf в базу Interbase