تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معرفة المساحة الفارغة في القرص -- Api
#1
كاتب الموضوع : 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"

}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  دالة معرفة نوع القرص + مثال مرفق !!!!!!!!!! RaggiTech 0 656 17-10-12, 03:27 PM
آخر رد: RaggiTech
  معرفة الاجهزة التي تعمل على الشبكة ping + mac address RaggiTech 0 941 17-10-12, 03:24 PM
آخر رد: RaggiTech
  معرفة الاجهزة التي تعمل على الشبكة ping RaggiTech 0 573 17-10-12, 03:23 PM
آخر رد: RaggiTech
  معرفة لغة العرض الخاصة بنظام التشغيل ويندوز RaggiTech 0 365 17-10-12, 02:24 PM
آخر رد: RaggiTech
  معرفة وعمل Format لرقم هاتف RaggiTech 0 419 17-10-12, 01:09 AM
آخر رد: RaggiTech
  معرفة وجود كرت صوت ملحق بالجهاز أم لا RaggiTech 0 365 17-10-12, 01:09 AM
آخر رد: RaggiTech
  معرفة مستوى الصوت المعرف في الويندوز وتغييره RaggiTech 0 280 17-10-12, 01:09 AM
آخر رد: RaggiTech
  معرفة لون النقطة التي يمر بها الماوس حالياً RaggiTech 0 416 17-10-12, 01:08 AM
آخر رد: RaggiTech
  معرفة عنوان النافذة النشطة الآن RaggiTech 0 394 17-10-12, 01:08 AM
آخر رد: RaggiTech
  معرفة عدد الكلمات ضمن نص معين RaggiTech 0 501 17-10-12, 01:08 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم