2005. február 20., vasárnap

How to get the number of files in a folder


Problem/Question/Abstract:

How to get the number of files in a folder

Answer:

uses
  Windows, { ... }

function FileCount(const aFolder: string): Integer;
var
  H: THandle;
  Data: TWin32FindData;
begin
  Result := 0;
  H := FindFirstFile(PCHAR(aFolder + '*.*'), Data);
  if H <> INVALID_HANDLE_VALUE then
    repeat
      Inc(Result, Ord(Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0));
    until
      not FindNextFile(H, Data);
  Windows.FindClose(H);
end;

Nincsenek megjegyzések:

Megjegyzés küldése