معرفه المساحه الحرة للهارد - نسخة قابلة للطباعة

كود :

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

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"

'vbcode.com