Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.29;
Скачать: CL | DM;

Вниз

Вложенность   Найти похожие ветки 

 
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]

Спасиба !



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

Текущий архив: 2002.04.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
14-94574
False
2002-03-20 12:28
2002.04.29
Какое расширение имееи Oracle?


14-94572
Doom
2002-03-21 11:25
2002.04.29
Люди !!! Помогите !!! Модем одурел совсем !! Сам по себе работает!!!


1-94456
ded_di
2002-04-16 09:49
2002.04.29
по ресурсам


1-94354
iva
2002-04-17 10:42
2002.04.29
focus


4-94620
Cheis
2002-02-23 23:54
2002.04.29
Здраствуйте. Как выключить в e равую клавишу мыши, чтобы popup меню не вылезало.