Freien Festplattenplatz ermitteln via 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 |
| |
| |
| |
| |
Mehr Tipps: Netzlaufwerke und Shares feststellen