Entwickler-Ecke
Dateizugriff - Ordner anzeigen
cromos - Do 28.08.03 13:13
Titel: Ordner anzeigen
Hallo,
ich habe eine Listbox,
in der möchte ich alle Unterordner angezeigt bekommen, die sich in
einem bestimmten Ordner befinden.
Gibt es sowas wie FindFirst/FindNext auf für Ordner?
Gruss
Cromos
Christian S. - Do 28.08.03 13:31
Hi.
So sollte es gehen:
Dir muss dabei mit dem letzen "\" angegeben werden!
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure getDirsFromDir (dir : String; liste : TStrings);
VAR datei : TSearchRec;
fehler : Integer;
begin
fehler:=FindFirst(dir+'*.*',faDirectory,datei);
while fehler = 0 do
begin
if datei.Attr and faDirectory <> 0 then
liste.Add(datei.name);
fehler:=FindNext(datei);
end;
FindClose(datei);
end; |
MfG
Peter
Tino - Do 28.08.03 13:40
Hallo!
Noch mehr Beispiele findest du wenn du hier im Forum nach
FINDFIRST FINDNEXT suchst.
Gruß
Tino
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!