| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Есть вопрос!!! [D5]

vinni2000 ©   (2002-02-07 10:15:00) 

procedure Tform1.ScanDir(aPath: String; var aList: TStringList);
var
SR: TSearchRec;
tPath: String;
begin
tPath := IncludeTrailingBackSlash(aPath);
if FindFirst(tPath+"*.*",faAnyFile,SR) = 0 then
begin
try
repeat
if SR.Name[1]="." then Continue;
case (SR.Attr and faDirectory) of
faDirectory: ScanDir(tPath+SR.Name,aList);
else Memo1.Lines.Add(tPath+SR.Name);
end;
until FindNext(SR)<>0;
finally
sysutils.FindClose(SR);
end;
end;
end;


Так вот этот кусок проги выполняет поиск всех файлов в указаной деректории. Но он работает коректно под win2k, но глючит в 98. Мастера что тут так может глючить?
Спасибо!

---

Anatoly Podgoretsky   (2002-02-07 22:07:00) [1]

В чем выражается "глючность"

---

vinni2000   (2002-02-07 10:35:00) [2]

Так ты ищеш файлы в определенной деректории. А мне надо найти файлы и во вложеных папках. Как в этом случае быть

---

BlankAlex   (2002-02-07 10:20:00) [3]

Try
Found := FindFirst(Path+"mo??????.db", faArchive, SearchRec);
While Found = 0 do begin
MOList.Add(SearchRec.Name) ;
Found := FindNext(SearchRec);
end;
Finally
FindClose(SearchRec);
End ;

только я здесь искал конкретные файлы

---

Наверх