GetPathList

Parameter

(SourcePath : String; AddRoot : Boolean; Recursive : Boolean; out List : Variant) : Integer;

Beschreibung

Erstellt eine Liste aller Pfade in SourcePath. AddRoot fügt den SourcePath mit in die Liste ein. Mit Recursive werden alle Unterordner rekursiv durchsucht und in die Liste eingefügt.

Im Ergebnis wird die Anzahl der gefundenen Ordner zurückgegeben. List enthält ein eindimensionales VariantenArray mit den kompletten Pfaden.

Beispiel

PathList := UnAssigned;
FileList := UnAssigned;
if GetPathList('c:\temp\',true,true,PathList) > 0 then
begin
  for i:=0 to VarArrayHighBound(PathList,1) do
  begin
    if GetFileList(PathList[i]+'*.txt',0,faOlder,FileList) > 0 then
    begin
      for j:=0 to VarArrayHighBound(FileList,1) do
      begin
        showmessage(FileList[j]);
      end;
    end;
  end;
end;