Почему не работает рекурсия? [D6, WinXP]
anod © (2002-08-03 16:59:00)
Пытаюсь найти файлы в папке, находит только те которые в dir:
procedure TForm2.ScanDir(dir: string; var list:Tstrings);
var rc: integer;
sr: TSearchRec;
begin
rc:=findFirst(dir + "*.mp3", faAnyFile, sr);
while rc=0 do begin
if ((sr.Attr and faDirectory)>0) and (sr.name <>
".") and (sr.name <> "..")
then scanDir(dir+sr.name,list) // смотрим подпапки
else list.Add(dir+sr.name);
rc:=findNext(sr);
end;
FindClose(sr);
end;
Dimka Maslov (2002-08-03 17:04:00) [1]
Дело в том, что данный код ищет всё что с расширением mp3. А
подкаталоги у тебя неверняка без расширения отсюда и проблема.
Попробуй вот этот пример:
http://delphibase.endimus.com/?action=viewfunc&topic=fileops&id=10046
Наверх 
ЧАТ |
Орешник |
|
