Prüfen ob ein verzeichnis die gewünschte erweiterungen hat ?

[marabu]

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