Festplatte nach Dateien dursuchen

[The-X]

Zitat von St.Pauli:

Zitat:

procedure GetFilesInDirectory(Directory: String; const Mask: String; List: TStrings; WithSubDirs, ClearList: Boolean);
// ... gekürzt
begin
List.BeginUpdate;
try
if ClearList then
List.Clear;
if Directory = '' then Exit;
if Directory[Length(Directory)] <> '\' then
Directory := Directory + '\';
ScanDir(Directory);
finally
List.EndUpdate;
end;
end;

...

Zitat:

GetFilesInDirectory('C:\', '*.abc', Listbox1.Items, False, True);
GetFilesInDirectory('C:\', '*.xyz', Listbox1.Items, False, True);

...

zu Frage 2: ^^ Lesen