Alle Ordner auflisten (benötige Codeerweiterung)
08.10.2006 16:23:52
Bernd
nachfolgenden Code habe ich hier im Archiv gefunden. Allerdings listet er nur alle Haupt-Ordner auf. Gibt es eine Möglichkeit, dass Unterordner und Unterunterordner (etwas eingerrückt bzw. in der nebenspalte) auch noch gleich mit erfasst werden?
Gruss
Bernd
--------------------C-O-D-E-(Archiv)-----------------------------
Sub OrdnerListe()
Dim Directory$, stFile$, Msg$, dName$, Pfad$
Dim R%, C%
Directory = InputBox("Bitte Pfad angeben:", , "c:\")
If Directory = "" Then Exit Sub
If Right(Directory, 1) <> "\" Then
Directory = Directory & "\"
End If
stFile = Dir(Directory & "*.*", vbDirectory)
C = 1
Do While stFile <> ""
If stFile = "." Or stFile = ".." Then
ElseIf (GetAttr(Directory & stFile) And _
vbDirectory) = vbDirectory Then
R = R + 1
Cells(R, C) = stFile
End If
stFile = Dir()
Loop
End Sub