Freien Festplattenplatz ermitteln

GetDiskFreeSpace


Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias _
"GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _
lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long

Function GetFreeSpace(ByVal Drive$) As Double
Dim SecPerCluster&, BytesPerSector&, NumFreeClusters&, NumClusters&
Dim lRet&, dVal#
lRet& = GetDiskFreeSpace(Drive$, SecPerCluster&, BytesPerSector&, NumFreeClusters&, NumClusters&)
dVal# = SecPerCluster& * BytesPerSector&
dVal# = dVal# * NumFreeClusters&
GetFreeSpace = dVal#
End Function