Ornder durchsuchen

[xZise]

Wie kann ich einen Ordner (z.B. C:\A\) durchsuchen und alle C:\A\*.mlo Dateien finden?

[paritycheck]

Hi,

Schau Dir mal die Funktionen Findfirst und Findnext an.

Delphi-Quellcode:

...
var SR: TSearchRec;
begin
  if FindFirst('C:\*.mlo', faAnyFile, SR) = 0 then begin
     repeat
      Listbox1.add(sr.Name);
    until
      FindNext(sr) <> 0;
  end;
...

[RavenIV]

Du findest etliche Einträge zu diesem Thema hier im Forum

Bei der Suche einfach mal "findfile" eingeben...

[marabu]

Hier noch ein Link: FindFiles()

Es geht aber auch hiermit:

Delphi-Quellcode:

uses
  FileCtrl;

function GetFiles(fileSpec: String; s: TStrings): Integer;
begin
  with TFileListBox.CreateParented(HWND(-3)) do
  try
    Mask := ExtractFileName(fileSpec);
    Directory := ExtractFilePath(fileSpec);
    FileType := [ftArchive];
    Result := Items.Count;
    s.Assign(Items);
  finally
    Free;
  end;
end;

Grüße vom marabu