Ausgangssituation: Meine Exel-Mappe ist irgendwo in einem Verzeichnis eines Laufwerks.
Ich möchte alle Ordner Dieses Laufwerks in der Excel-Mappe auflisten und als Hyperlinks zur Verfügung haben. Mit der "SubFolders" methode habe ich ja immer nur die auflistung der Ordner unterhalb eines Verzeichnisses. Ich möchte aber dann auch noch die Ordner auflisten, die noch tiefer in den Verzeichnissen liegen.
Beispiel für das was ich schon habe...
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\EXCEL-Projekte")
Set sf = f.SubFolders
For Each f1 In sf
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s