Есть вопрос!!!

← →
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]

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

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

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