معرفة المساحة الفارغة في القرص -- Api

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

السلام عليكم ورحمة الله وبكاته

كود :

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

وهذا في الكومند بعد أن تضع تكست بوكس وتكتب فيه c

كود :

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"