Hi,
ich habe mal schnell einen Code entwickelt der dir helfen sollte. Es sind zwar schon einige Beispiele genannt worden aber ich will dir meinen nicht vorenthalten:
Delphi-Quellcode:
procedure TForm1.CreateFileList(Dir, Ext: String; UseSubDirs: Boolean);
var
SR: TSearchRec;
begin
If FindFirst(Dir + '*.*', faAnyFile, SR) = 0 then
Repeat
If (SR.Attr and faDirectory = faDirectory) and (SR.Name <> '.') and (SR.Name <> '..') and (UseSubDirs) then CreateFileList(IncludeTrailingPathDelimiter(Dir + SR.Name), Ext, UseSubDirs)
Else If LowerCase(ExtractFileExt(SR.Name)) = LowerCase(Ext) then
begin
Application.ProcessMessages;
ListBox1.Items.Add(Dir + SR.Name);
end;
Until FindNext(SR) <> 0;
FindClose(SR);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Clear;
CreateFileList(DriveComboBox1.Drive + ':\', Edit1.Text, CheckBox1.Checked);
end;
Wie gesagt, auf die schnelle, sollte aber fuktionieren.
Gruß
Mazel