Ordner auflisten
Torsten
über die Recherche habe ich zum obigen Thema einen Code von Josef Ehrensberger gefunden:
Option Explicit
Dim FSO, FO, FU, F
Dim lRow As Long
Dim icol As Integer
Sub OrdnerAuflisten()
Set FSO = CreateObject("Scripting.FileSystemObject")
icol = 0
lRow = 0
GetSubFolders "E:"
End Sub
Function GetSubFolders(pfad)
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
lRow = lRow + 1
icol = icol + 1
Cells(lRow, icol) = F.Name
GetSubFolders F.Path
Next
icol = icol - 1
End Function
der auch funktioniert. Ich hätte nur gerne eine kleine Anpassung, die ich mit meinen bescheidenen Kenntnissen aber nicht alleine hinbekomme: Ich würde gerne die Pfadangabe über eine Inputbox vom User eingeben lassen. Könnt Ihr mir hier behilflich sein? Vielen Dank für Eure Unterstützung im voraus.
Gruß
Torsten