ja so in etwa hatte ich mir das schon gedacht das das nicht so einfach geht, also werd ich im Vorfeld Die Dateianzahl ermitteln müssen.
Dürfte ja da mit den Quellcode gehen
Delphi-Quellcode:
class function TMyDaten.ErmittleArchivAttribut(Verzeichnis: String): TStringList;
var
Search : TSearchRec;
LVerz : String;
LNamen : TStringList;
begin
LNamen := TStringList.Create;
LVerz := Verzeichnis;
if FindFirst(LVerz + '*.*', faAnyFile or faArchive, Search) = 0 then
try
repeat
if (Search.Attr and faArchive) = faArchive then
LNamen.Add(Search.Name)
until
FindNext(Search) <> 0;
finally
SysUtils.FindClose(Search);
Result := LNamen;
end;
//LNamen.Free;
end;