anzahl dateien im ordner

[marabu]

Hai Sharky,

mal sehen wie lange ich mich noch mit D7 halten kann. Geht denn das hier mit den neueren Versionen?

Delphi-Quellcode:

// uses FileCtrl;

function FileCount(fileSpec: string): Integer;
begin
  with TFileListBox.CreateParented(HWND(-3)) do
  try
    Mask := ExtractFileName(fileSpec);
    Directory := ExtractFilePath(fileSpec);
    FileType := [ftArchive];
    Result := Items.Count;
  finally
    Free;
  end;
end;

Wichtig bei solchen Funktionen ist ja nur, dass man möglichst wenig eigene Codezeilen benutzt - in denen stecken die meisten Fehler.

Grüße vom marabu