Скачать: CL | DM;

Есть вопрос!!!   Найти похожие ветки 

← →
vinni2000   (2002-02-07 10:15) [0]

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. Мастера что тут так может глючить?
Спасибо!

---

← →
BlankAlex ©   (2002-02-07 10:20) [1]

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 ;

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

---

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

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

---

← →
Anatoly Podgoretsky ©   (2002-02-07 22:07) [3]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c