by Varun Godbole (15 Submissions)
Category: Windows API Call/Explanation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 18th April 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Check Free Space on Drive
Dim b As Long
Dim lngSectorsPerCluster As Long
Dim lngBytesPerSector As Long
Dim lngNumberOfFreeClusters As Long
Dim lngTotalNumberOfClusters As Long
retVal = GetDiskFreeSpace(Text1.Text, lngSectorsPerCluster, lngBytesPerSector, lngNumberOfFreeClusters, lngTotalNumberOfClusters)
b = lngSectorsPerCluster
c = lngBytesPerSector
d = lngNumberOfFreeClusters
e = b * c * d
For i = 1 To 3
e = e / 1024
Next
r = Round(e, 2)
Label1.Caption = "Free space on drive " & Text1.Text & " = " & r & " GB"