Hallo,
ich habe meinen
Code von neulich etwas anpasst, damit er auch mehrere Erweiterungen prüfen kann:
Delphi-Quellcode:
// uses FileCtrl;
function FileCount(const dir, masks: String): Integer;
begin
with TFileListBox.CreateParented(HWND(-3)) do
try
Mask := masks;
Directory := IncludeTrailingPathDelimiter(dir);
FileType := [ftArchive];
Result := Items.Count;
finally
Free;
end;
end;
begin
if FileCount('C:\Media\Audio\', '*.MP3;*.WAV') = 0 then
ShowMessage('nix gefunden');
end;
Mit nur wenigen Zeilen mehr lässt sich auch eine rekursive Untersuchung eines Verzeichnisbaumes bewerkstelligen.
Grüße vom marabu