Da ich nicht erkenne, wie ich das auflisten der Dateien im StartOrdner mit in die Klasse DirectoryUtils vernünftig einbaue, habe ich mir eine kleine Funktion gebastelt die mir die Dateien einliest und diese vor den Aufruf der DirectoryUtil Klasse gesetzt.
Delphi-Quellcode:
StartFolder := '
C:\FB';
FilterMaske := '
*.*';
StatusBar1.Panels[0].Text := '
suche Verzeichnisse';
ListView1.Clear();
ProgressBar1.Style := pbstMarquee;
ProgressBar1.Position := 0;
Button1.Enabled := False;
//----------------------------------------------------
PresentFiles(ListFiles(StartFolder,FilterMaske),0);
//----------------------------------------------------
FSearchDirTask := TDirectoryUtil.GetDirectoriesAsync(StartFolder, TSearchOption.soTopDirectoryOnly,
nil,
procedure(Directories: TStringDynArray; DirectoriesError:
Exception)
begin
TThread.Synchronize(
nil,
procedure
Delphi-Quellcode:
function ListFiles(Path, FilterMaske: String): TStringDynArray;
Var
SearchResult:TStringDynArray;
Begin
// Einlesen der Dateien ab dem Verzeichnis Path
SearchResult := TDirectory.GetFiles(Path, FilterMaske, TSearchOption.soAllDirectories);
Result:=SearchResult;
end;
Wenn jemand eine Idee hat wie man das in der DirectoryUtil Klasse richtig macht, damit auch die Dateien im Hauptverzeichnis angezeigt werden, würde ich mich freuen.