ich habe in der Recherche folgenden Code gefunden:
Sub ShowFolderName()
Dim FSyObjekt As Object, FoObjekt As Object
Set FSyObjekt = CreateObject("Scripting.FileSystemObject")
Set FoObjekt = FSyObjekt.GetFolder("D:\Eigene Dateien\Test")
MsgBox FoObjekt.Name
End Sub
Ich möchte gern eine Routine drin haben, die nacheinander alle in TEST befindlichen Ordnernamen ausgibt.Gruß
Steffen