Допустим есть функция:

Function GetFileCount(Dir:string):integer;
var fs:TSearchRec;
begin
Result:=0;
if FindFirst(Dir+'\*.htm?',faAnyFile-faDirectory-faVolumeID, fs)=0 then
repeat
inc(Result);
until FindNext(fs)<>0;
FindClose(fs);
end;

Которая позволяет наиболее быстрым способом узнать количество файлов с определенным расширением (htm, html) в заданном каталоге.

В Windows NT 4.0 эта функция находит как htm так html файлы.
В Windows 98 эта функция находит только файлы с расширением html.

Подскажите в чем проблема?

Разобрался сам.

Это '\*.htm?' надо поменять на это '\*.htm*'

Разобрался сам.

Это '\*.htm?' надо поменять на это '\*.htm*'

Тогда в 98 все работает.

Здравствуйте, Good Man, Вы писали:

GM>Разобрался сам.

GM>Это '\*.htm?' надо поменять на это '\*.htm*'

GM>Тогда в 98 все работает.

Но ты учти, что будут находиться все файлы расширение которых начинается на htm! т.е. файл, например, xxx.htmls тоже попадает под твою маску поиска