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