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