Сколько файлов есть в определённой папке

Советы » Каталоги » Сколько файлов есть в определённой папке

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com