Access VBA - Plattenplatz überprüfen

Seidl · 05.05.2003, 22:47

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

05.05.2003, 22:47	#4
Seidl Veteran Registriert seit: 10.01.2001 Beiträge: 478	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

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)