kleines FSO.subfolders Problemchen
06.07.2020 20:47:57
Nancy
ich habe grade nen Klemmer und bekomme die korrekte Syntax nicht mehr zusammen.
Ich möchte gebe einen Ordner an und möchte alle Unterordner mit Namen gelistet haben (und im weiteren Verlauf auch noch alles Files der Subfolders), aber jetzt mal egal, wie muss die Zeile:
Debug.Print fo.subfolders(i).Name
korrekt lauten?
Vielen Dank :-)
--
Sub test()
Dim fso As Object, fo As Object, sf As Object, fi As Object, i%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.getfolder("C:\Users\USER\Desktop\Ursel90")
For i = 0 To fo.subfolders.Count - 1
Debug.Print fo.subfolders(i).Name
Next
Set fso = Nothing
End Sub