Prüfen, ob Ordner leer ist

[DeluxXx]

Ich wuerd es hiermit machen am schluss guckst du halt dann ob der slCurrent Count gleich 0 null wennm er größer als null ist enhält er ja Dateien ...

Delphi-Quellcode:

procedure FindFiles(DirStr,FN : string; slCurrent: TStringlist);
 var
 DirInfo: TSearchRec;
 R: integer;
 Mask,Dir : String ;
 begin
   Dir := includeTrailingpathDelimiter(Dirstr) ;
   try
     R := FindFirst(Dir+ FN, faAnyFile, DirInfo);
     while R = 0 do
     begin
       if ((DirInfo.Attr and faDirectory <> faDirectory) and (DirInfo.Name <> '.') and (DirInfo.Name <> '..') and (DirInfo.Attr and SysUtils.faVolumeID  <> SysUtils.faVolumeID)) then
       begin
         slCurrent.Add(Dir + DirInfo.Name);
       end;
       R := FindNext(DirInfo);
     end;
   finally
     FindClose(DirInfo);
   end;
 end;