AW: Web Ordnerstukturen auslesen?
15.07.2009 09:40:13
susanne
Hallo Lenni,
ich hab mal angefangen was zu machen,
bin aber noch nicht all zu weit vielleicht hilft es.
Hiermit werden die Unterordner eines Verzeichnisses in die 1.Spalte ausgegeben.
Wie man den Verzeichnissnamen einliest ohne eine Datei auswählen zu müssen,
habe ich allerdings noch nicht raus.
Sub VerzeichnisStrukturAuslesen()
Dim b As Boolean
Dim Verzeichnis As String
Dim i As Integer
Verzeichnis = "hier den Verzeichnissnamen angeben"
b = OrdnerAnzeigen(Verzeichnis, 1, 1)
MsgBox "fertig"
End Sub
'Vorher Bibliothek Microsoft Scripting RunTime einbinden
Function OrdnerAnzeigen(Verzeichnis As String, Sp As Integer, Z As Integer) As Boolean
Dim objFSO
Dim objOrdner
Dim Ordner
Z = Z + 1
Cells(Z, Sp).Value = Verzeichnis
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOrdner = objFSO.GetFolder(Verzeichnis & "\")
If objOrdner.SubFolders.Count > 0 Then
For Each Ordner In objOrdner.SubFolders
b = OrdnerAnzeigen(Verzeichnis & "\" & Ordner.Name & "\", Sp, Z)
Next
End If
End Function
Susanne