Ich will ein Prog schreiben das mir alle Verzeichnisse mitsamt Unterverzeichnissen auflistet. Dafür habe ich erst mal getestet, sprich ein Programm geschrieben, das die Verzeichnisse erst mal ohne Unterverzeichnisse auflistet... doch mein Testprog unterschlägt Verzeichnisse! Ich rätsel da schon rum wie ein Blöder!
Habe ein Editfeld mit Namen root (Verzeichnis in welchem gesucht wird) und ein Memofeld namens listenmemo...
Delphi-Quellcode:
procedure TForm1.ButtonClick(Sender: TObject);
var verzeichnisse: TSearchRec;
begin
if findfirst(root.Text + '*', fadirectory, verzeichnisse) = 0 then
begin
listenmemo.Lines.add(verzeichnisse.name);
repeat
findnext(verzeichnisse);
if verzeichnisse.Attr = 16 then
listenmemo.Lines.add(verzeichnisse.name);
until findnext(verzeichnisse) <> 0;
end;
findclose(verzeichnisse);
end;
Vielen Dank schon mal für die Hilfe!
Ich beiss mir bald noch ins Knie wegen so was *gg*