AW: Unterverzeichnisse
14.01.2004 16:26:15
ALM
Hallo Matze
hier eine Möglichkeit:
Sub ORDNER_AUSLESEN()
' Variablen Deklaration
Dim NAME As String
Dim PFAD As String
Dim PFAD_ As String
Dim ORDNER(100) As String
' dadurch können maximal 100 Ordner angezeigt werden
Dim ORDNER_Zaehler As Integer
Dim x As Integer
' Variablen Setzen
ORDNER_Zaehler = 0
PFAD = "C:\Programme\"
' hier den Ordner angeben, dessen Unterordner
' angezeigt werden sollen
PFAD_ = PFAD + "\*."
' Ich arbeite mit Office 97, *. war der einzige Befehl,
' der mir nur die Unterorder auflistet. Allerdings, werden
' keine Order angezeigt die einen Punkt enthalten.
' Ein weiteres Problem, Dateien ohne Endungen werden auch
' angezeigt.
' Als Hinweis, bei höheren Office Versionen gibt es Befehle
' bzw. Komponenten dafür. Unter Office 97 gäbe es noch die
' Möglichkeit Komponenten einzubinden
NAME = Dir(PFAD_, vbDirectory)
Do While NAME <> ""
' Diese Schleife wird solange durchlaufen, bis keine eintrag mehr
' vorhanden ist
ORDNER(ORDNER_Zaehler) = PFAD & NAME
ORDNER_Zaehler = ORDNER_Zaehler + 1
NAME = Dir()
Loop
' Beispiel auflisten in einem Tabellenblatt
For x = 0 To 100
Cells(x + 1, 1) = ORDNER(x)
Next x
End Sub
MFG
ALM