Ordner Namen auslesen mit Pfad Abfrage
04.05.2022 12:03:50
Markus
meine VBA Kenntnisse sind leider veraltet. Ich möchte die Namen der Ordner auslesen und in eine Excel Liste bringen. Das klappt soweit mit untenstehendem Code. Ich möchte aber das man nach dem Pfad gefragt wird und diesen dann in einer Abfrage Box eingeben kann. Was noch besser wäre, wenn man den Pfad in der Excel Mappe stehen hat z.B. in Zelle B1 und er alle Ordner Namen in Spalte A aufführt, danach will ich einen Link aus dem Ordner Namen erstellen, so das man wenn man den Link anklickt direkt in den Ordner gelangt.
Vielen Dank für Eure Bemühungen mir zu helfen!
Lg. Markus
Option Explicit
Public Sub OrdnerAuflisten()
Dim objFSO As Object
Dim folder As Object
Dim strPfad As String
Dim subFolder As Object, colSubfolders As Object
Dim i As Integer
'Pfad hier ersetzen zum Verzeichnis, das ausgelesen werden soll
strPfad = "G:\000 BILDER"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set folder = objFSO.GetFolder(strPfad)
Set colSubfolders = folder.Subfolders
'hier Startzeile-1 für Excel festlegen
i = 1
For Each subFolder In colSubfolders
i = i + 1
Range("A" & i).Value = subFolder.Name
Next subFolder
Set folder = Nothing
Set colSubfolders = Nothing
Set objFSO = Nothing
End Sub
Anzeige