Filelistbox mit Inhalt der Unterordner

[Schorsch Hackel]

Hi,
wie bekomm ich den Ihnhalt der Unterordner zusammen mit denen im Hauptordner in eine FileListbox?
z.B. Filelistbox.directory := 'C:\windows\' und jetzt sollen in der Filelistbox alle Dateien angezeigt werden, die sich im Ordner Windows + in allen Unterordner befinden.
Kann mir da jemand helfen?

mfg
Schorsch

[Joachim Plum]

Hallo,<br>
<p>
nachfolgendes Beispiel listet alle Dateien in einer ListBox auf<br>
(keine FileListBox).<br>
<p>
implementation<br>
<p>
var count : longint;<br>
{$R *.DFM}<br>
<p>
procedure GetAllFiles(mask:string);<br>
var Search: TSearchrec;<br>
verz : string;<br>
such : string;<br>
begin<br>
such := ExtractFileName(mask);<br>
verz := ExtractFilepath(mask);<br>
if verz[length(verz)]<>'\' then verz := verz + '\';<br>
{ alle Dateien suchen }<br>
if FindFirst(mask, $23, Search)= 0 then repeat<br>
form1.listbox1.items.add(verz+Search.Name);<br>
inc(count);<br>
until FindNext(Search)<>0;<br>
{ Unterverzeichnisse durchsuchen }<br>
if FindFirst(verz + '*.*',fadirectory, Search)= 0 then begin;<br>
repeat<br>
if((search.attr and fadirectory)=fadirectory)and(search.name[1]<>'.')<br>
then GetAllFiles(verz+ Search.Name + '\' + such);<br>
until FindNext(Search) <> 0;<br>
end;<br>
end;<br>
<p>
procedure TForm1.Button1Click(Sender: TObject);<br>
var directory: string;<br>
begin<br>
count := 0;<br>
screen.cursor := crHourGlass;<br>
listbox1.items.clear;<br>
directory := directorylistbox1.directory;<br>
if directory[length(directory)]<>'\' then directory := directory + '\';<br>
getAllFiles(directory+'*.*');<br>
screen.cursor := crDefault;<br>
MessageDlg(inttostr(count)+' Datei(en) gefunden!', mtInformation, [mbOk], 0);<br>
end;<br>
<p>
Gruß Joachi