Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.25;
Скачать: 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 вся ветка

Текущий архив: 2002.02.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
1-79397
Никита
2002-02-09 14:18
2002.02.25
ошибка


1-79312
dimich
2002-02-07 14:22
2002.02.25
И еще раз про UnregisterHotKey


14-79426
Ajax
2002-01-05 21:26
2002.02.25
Драйвера под XP


14-79442
sudiv
2002-01-05 16:07
2002.02.25
Нужна схема к Smart UPS 600? Поможите если есть у кого?


7-79494
neverbee
2001-11-20 11:07
2002.02.25
Вывод текста поверх других окон. Как?