| 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