[RaggiTech]

كاتب الموضوع : AhmedEssawy

كود :

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