ich möchte gerne mit Excel die Ordnergröße verschiedener Ordner auslesen und in einer Tabelle aufführen. Dieses soll automatisch mit einer Klickfunktion ausgeführt werden. Könnte mir da einer weiterhelfen.
Gr€€tz Gerrit
ich möchte gerne mit Excel die Ordnergröße verschiedener Ordner auslesen und in einer Tabelle aufführen. Dieses soll automatisch mit einer Klickfunktion ausgeführt werden. Könnte mir da einer weiterhelfen.
Gr€€tz Gerrit
die folgende Prozedur liefert die Ordnergröße in Byte:
Sub Ordnergroesse()
ShowFolderInfo ("H:\Excel")
End Sub
Sub ShowFolderInfo(folderspec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
s = f.Size
MsgBox s
End Sub
Gruss
Andreas
Wie gesagt, hab noch nie mit VB gearbeitet ;-)
Hab vom Programmieren mit VB ein Plan ;-)
Also nich so einfach, hoffe das es jetzt nur einmal gepostet wird :-)
Gruß Gerrit
damit Eintrag in Zelle A1 steht ändere macro so ab
Sub ShowFolderInfo(folderspec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
s = f.Size
Range("a1") = s
'MsgBox s
End Sub
gruss geri
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