Hallo,
wie bekomme ich eine Liste aller Dateinamen
aus einem bestimmtem Verzeichnis ?
bye
Martin
Hi Martin,
probiers mit der folgenden Prozedur. Sie liest alle Dateien mit einer bestimmten Dateimaske (*.* für alle) im Verzeichnis APath in eine Listbox, wobei die Verzeichnisse und versteckten Dateien ignoriert werden (Flag faDirectory und faHidden).
procedure TForm1.ScanFiles(APath, AFileMask: String);
var
Found : Integer;
SearchRec : TSearchRec;
begin
try
Found := FindFirst(APath + '\'+ AFileMask, faAnyFile - faDirectory - faHidden, SearchRec);
while Found = 0 do
begin
ListBoxFiles.Items.Add(SearchRec.Name);
Found := FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
end;
Gruß Thomas