Wiese kann ich mit der FindFirst, FindNext methode nur dateien suchen obwohl es extra einen parameter faDirectory in der FindFirst gibt?
Problemcode:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
fts: TSearchRec;
fcount, dcount: integer;
begin
fcount := 0;
dcount := 0;
findfirst(DirectoryListBox1.Directory+'\*.*',faDirectory,fts);
listbox1.Items.Add(fts.Name);
if fts.Attr = faDirectory then inc(dcount,1)
else inc(fcount,1);
repeat
findnext(fts);
listbox1.Items.Add(fts.Name);
if fts.Attr = faDirectory then inc(dcount,1)
else inc(fcount,1);
until findnext(fts) <> 0;
FindClose(fts);
label1.Caption := inttostr(fcount+dcount)+' items. ' + inttostr(fcount)+
' files, ' + inttostr(dcount)+ ' directories.';
end;
Ergebnis: 127 items. 127 files, 0 directories
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]