Количество файлов!

← →
ers © (2003-04-14 13:48) [0]

Как получить количество файлов в определенной папке, код плиз!

← →
Anatoly Podgoretsky © (2003-04-14 13:53) [1]

Код в FAQ

← →
malkolinge © (2003-04-14 17:43) [2]

FindFirst
FindNext
И считать :)

← →
max2057 © (2003-04-14 17:51) [3]

procedure FindFiles(dir:string;mask:string;var l:TStringList);
var
hF : THandle ;
fd : WIN32_FIND_DATA;
begin
if mask="" then exit ;
try
hF := FindFirstFile(pchar(dir+"\*.*"),fd);
if hF<>INVALID_HANDLE_VALUE then begin
if not boolean(fd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)
and (MatchesMask(fd.cFileName,mask)) then
l.Add(fd.cFileName);
while FindNextFileA(hF,fd) <> false do
if not boolean(fd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)
and (MatchesMask(fd.cFileName,mask)) then
l.Add(fd.cFileName);
end;
finally
Windows.FindClose(hF);
end;
end;

Немного переделай только

← →
Song © (2003-04-14 18:58) [4]

LB_DIR + TListBox.Count

function FilesCount(Path:String):Integer;
var
F: TWIN32FindData;
Fil:THandle;
begin
Result:=0;
Fil:=FindFirstFile(Pchar(Path+"*.*"), F);
while FindNextFile(Fil,F) = true do begin
if F.dwFileAttributes<>FILE_ATTRIBUTE_DIRECTORY then
Result:=Result+1;
end;
Windows.FindClose(Fil);
end;

F.dwFileAttributes<>FILE_ATTRIBUTE_DIRECTORY - неправильно
надо:
F.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY
потому что у каталога кроме того что он каталог может быть другой аттрибут(SYSTEM HIDDEN etc.) и может получится что каталог-на самом деле каталог но условие не выполнится так как F.dwFileAttributes содержит еще что-то кроме FILE_ATTRIBUTE_DIRECTORY

Количество файлов! Найти похожие ветки