| 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
Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!
Nutzen Sie unsere Suchfunktion:
Nach oben
Sitemap
Impressum
Datenschutz