Laufwerksgrösse in VBA

Re: Laufwerksgrösse in VBA - Leicht gemacht

cyrusm — Sun, 05 May 2002 07:50:54 GMT

Hallo !

Geht auch noch einfacher mit dem FileSystemObject.

Public Sub sLaufwerksgrosse()
' ermittelt die Laufwerksgrösse von C:
Dim wsh As Object
Dim drv As Object

  Set wsh = CreateObject("Scripting.FileSystemObject")
  Set drv = wsh.GetDrive("C:")

  Debug.Print "***** Speicherplatz von " & drv & drv.VolumeName & " *****"
  Debug.Print "Gesamter Speicherplatz: " & Format(drv.TotalSize / 1024 / 1024, "#,##0.00 MB")
  Debug.Print "Freier Speicherplatz:   " & Format(drv.FreeSpace / 1024 / 1024, "#,##.00 MB")
  Debug.Print "Belegter Speicherplatz: " & Format((drv.TotalSize - drv.FreeSpace) / 1024 / 1024, "#,##.00 MB")

End Sub

Solltest dir mal das FileSystemObject genauer anschauen. Ich habe es hier mit Late Binding gemacht, wenn du aber Early Binding verwendest (über Extras|Verweise die Bibliothek "Microsoft Scripting Runtime" einbindest) sieht du über IntelliSense die Methoden und Eigenschaften.

Grüße Cyrus

Re: Laufwerksgrösse in VBA

Penguin — Thu, 02 May 2002 06:27:43 GMT

probier mal

http://www.herber.de

die haben ein recht umfangreiches archiv.

Re(3): Laufwerksgrösse in VBA

Madler — Tue, 30 Apr 2002 13:46:01 GMT

der dort angebotene programmcode funkt bei mir nicht

Re(2): Laufwerksgrösse in VBA

Jack Sniper — Mon, 29 Apr 2002 16:10:04 GMT

NeNe.

Geht einfacher.
siehe: http://www.mvps.org/vbnet/index.html?code/disk/index.html

MfG Jack

Re: Laufwerksgrösse in VBA

johnjohnson — Mon, 29 Apr 2002 14:57:17 GMT

Du wirst es machen müssen wie in jeder anderen mir bekannten Sprache: Einen Array von Dateien erstellen, darüber rauschen und die Größen zusammenzählen. Wäre mir neu, wenn das Objekt, das ein Laufwerk darstellt automatisch schon eine Methode hat, das die Gesamtgröße aller Daten darauf zurückgibt.. Wäre auch unnütze Zeit- und Resourcenverschwendung... Wenn da auch noch Ordner auf dem Datenträger sind, dann mußt halt in die Ordner rein und auch dort drüber rauschen und so weiter und so fort.

Laufwerksgrösse in VBA

Madler — Mon, 29 Apr 2002 13:49:57 GMT

wie kann man mit VBA die Grösse der am Laufwerk befindeten Daten auslesen und in einer Variable oder ahnlichen zur verfügung stellen?