• Home
 · 
• Windows API Call/Explanation
 · 
• Check Free Space on Drive

Check Free Space on Drive

Check Free Space on Drive

Rate Check Free Space on Drive

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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"