ich möchte mittels eines Makros eine Tabelle erstellen, die alle Verzeichnisse im Root-Laufwerk auflistet mit deren grösse. Geht das?
Vielen Dank für Eure Hilfe
versuche mal folgenden Code. Vorher musst du allerdings
die Microsoft Scripting Runtime in dein sheet einbingen.
Dazu gehst du auf Extras / Verweise und click eben diese Bibliothek an.
Anschliessend:
Public fso As New filesystemobject
----------------------------------------
Sub test()
Dim f As Folders
Dim subf As Folder
Dim i As Integer
' Anstatt C:\temp benutze das von dir gewünschte directory
Set f = fso.GetFolder("C:\temp").SubFolders
i = 0
For Each subf In f
i = i + 1
Cells(i, 1).Value = subf.name
Cells(i, 2).Value = subf.Size
Next
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen