habe ich in Excel VBA die Möglichkeit, die Größe eines bestimmten Ordners auszulesen?
Ich möchte als Beispiel wissen, wie groß der Ordner "C:\Programme" ist.
Vielen Dank für Eure Unterstützung.
Micha
Sub test()
Dim fso
Dim dat
Set fso = CreateObject("Scripting.filesystemobject")
Set dat = fso.getfolder("C:\Programme")
MsgBox dat.Size
End Sub
Sub test()
Dim fso, dat, NB, KB, MB, GB
Set fso = CreateObject("Scripting.filesystemobject")
Set dat = fso.getfolder("C:\Programme")
NB = dat.Size & " Byte"
KB = dat.Size / 1024 & " KB"
MB = dat.Size / 1024 / 1024 & " MB"
GB = dat.Size / 1024 / 1024 / 1024 & " GB"
MsgBox NB & Chr(13) & KB & Chr(13) & MB & Chr(13) & GB
End Sub
Um die Größe eines bestimmten Ordners in Excel auszulesen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier sind die Schritte:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Klicke auf Einfügen
und wähle Modul
, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:
Option Explicit
Sub OrdnergrößeAnzeigen()
Dim fso As Object
Dim ordner As Object
Dim ordnerPfad As String
ordnerPfad = "C:\Programme" ' Ändere den Pfad nach Bedarf
Set fso = CreateObject("Scripting.FileSystemObject")
Set ordner = fso.GetFolder(ordnerPfad)
Dim NB As String, KB As String, MB As String, GB As String
NB = ordner.Size & " Byte"
KB = ordner.Size / 1024 & " KB"
MB = ordner.Size / 1024 / 1024 & " MB"
GB = ordner.Size / 1024 / 1024 / 1024 & " GB"
MsgBox "Größe des Ordners: " & vbCrLf & NB & vbCrLf & KB & vbCrLf & MB & vbCrLf & GB
End Sub
Schließe den VBA-Editor und gehe zurück zu Excel.
Drücke ALT + F8
, wähle OrdnergrößeAnzeigen
aus und klicke auf Ausführen
.
Das Skript zeigt Dir die Größe des angegebenen Ordners in verschiedenen Einheiten an.
Fehler: "Pfad nicht gefunden"
Fehler: "Objektvariable nicht festgelegt"
Extras
> Verweise
und aktiviere Microsoft Scripting Runtime
.Umrechnung zwischen KB und MB
Falls Du keine VBA-Programmierung verwenden möchtest, kannst Du auch das Windows-Betriebssystem nutzen:
Eigenschaften
.Beispiel 1: Um die Größe des Ordners "C:\Users" anzuzeigen, ändere die Zeile im Code zu:
ordnerPfad = "C:\Users"
Beispiel 2: Wenn Du die Größe eines Netzlaufwerks anzeigen möchtest, verwende den UNC-Pfad:
ordnerPfad = "\\Netzwerkpfad\Ordner"
1. Wie groß ist ein Ordner in Excel? Um die Größe eines Ordners anzuzeigen, kannst Du das oben genannte VBA-Skript verwenden.
2. Was ist kleiner, KB oder MB? 1 KB (Kilobyte) ist 1024 Byte, während 1 MB (Megabyte) 1024 KB entspricht. Daher ist MB größer als KB.
3. Wie kann ich die Größe von Ordnern anzeigen, die ich nicht besitze? Du benötigst die richtigen Berechtigungen, um auf die Eigenschaften von Ordnern zuzugreifen, die Du nicht besitzt. Andernfalls wird der Zugriff verweigert.
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