Форум: "Основная";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
ВнизЕсть вопрос!!! Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c