Cколько файлов есть в определённой папке?
Материал из DRKB
Cколько файлов есть в определённой папке?[править | править код]
Как наиболее быстрым способом узнать, сколько файлов с определенным расширением есть в определенной папке?
Например для HTM файлов:
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;
Author: Vit
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 03156