Also ich glaube offengesagt nicht, dass diese Funktion besonders viel Performance frisst (sofern man sie nicht 10 mal in der Sekunde aufruft
)
Verweis auf "scrrun.dll" und gib ihm.
Public Sub FreeSpace()
Dim FileSys As FileSystemObject
Dim drvCheck As Drive
Dim FreeSpace As String
Set FileSys = New FileSystemObject
Set drvCheck = FileSys.GetDrive("C:")
FreeSpace = Format(drvCheck.FreeSpace / (2 ^ 30), "#.000")
FreeSpace = Left(FreeSpace, Len(FreeSpace) - 1) & " GB"
MsgBox FreeSpace
End Sub