منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معرفه المساحه الحرة للهارد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : معرفه المساحه الحرة للهارد (/showthread.php?tid=5925)



معرفه المساحه الحرة للهارد - RaggiTech - 17-10-12

كاتب الموضوع : 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