17-10-12, 02:54 PM
كاتب الموضوع : sniperser
السلام عليكم ورحمة الله وبكاته
وهذا في الكومند بعد أن تضع تكست بوكس وتكتب فيه c
السلام عليكم ورحمة الله وبكاته
كود :
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"