بدست اوردن حجم یک درایو

سلام
من دارم یه auto-setup مینویسم که به صورت اتوماتیک یه برنامه رو نصب میکنه:31:
سوال: من میخوام حجم درایو ویندوز و بدست بیارم و در صورتی کهحجم درایو کمتر از یه حدی بود
یه ارور بدم و خارج شم:46:
ممنون میشم کمک کنید:11:

سلام!

اینم کد:

کد:

---

Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Long, lpTotalNumberOfBytes As Long, lpTotalNumberOfFreeBytes As Long) As Long


Private Sub Form_Load()
  Dim TotalBytes As Long
  Dim FreeBytes  As Long
 
 
  GetDiskFreeSpaceEx Environ$("SYSTEMDRIVE"), FreeBytes, TotalBytes, 0
 
  MsgBox "Total Size: " & TotalBytes / 1024 & " KB"
  MsgBox "Free Space: " & FreeBytes / 1024 & " KB"
End Sub

---

خوب حالا میتونی شرط رو با استفاده از متغیر FreeBytes تعیین کنی...
در ضمن FreeBytes تعداد بایت های آزاد است.
و TotalBytes تعداد کل بایت ها.

به همین سادگی!
مشکلی بود بگو :11: