چگونگي بدست آوردن مقدار فضاي درايو ؟

[parsbin]

سلام دوستان
چطوري ميشه مقدار فضاي يك درايو سيستم رو با Vb بدست آورد
مثلا مقدار فضاي اشغال شده يا آزاد درايو C رو
پيشاپيش ممنون

[A_M_IT2005]

سلام
FSO فعال کن. Project/Referances/Microsoft Scripting RunTime
حالا این دو خط کد رو بنویس :
Dim FSO1 as new filesystemobject
Dim drv1 as Drive
برخی خواص عنصر درایو :
خاصیت Totalsize:
مقدار فضای کل درایو را بر حسب بایت تعیین میکند

خاصیت Freespace:
فضای ازاد درایو را بر حسب بایت تعیین میکند.
خاصیت Availablespace :
فضای قابل دسترس درایو را تعیین میکند.

البته خواص دیگر هم داره ، ولی خوب همین سه تا را شما میخواستی دیگه.

[MohammadJavad.T]

سلام
a_m_it2005 میتونی یه خورده درباره Referances توضیح بدی ؟
ممنون

[parsbin]

سلام
FSO فعال کن. Project/Referances/Microsoft Scripting RunTime
حالا این دو خط کد رو بنویس :
Dim FSO1 as new filesystemobject
Dim drv1 as Drive
برخی خواص عنصر درایو :
خاصیت Totalsize:
مقدار فضای کل درایو را بر حسب بایت تعیین میکند

خاصیت Freespace:
فضای ازاد درایو را بر حسب بایت تعیین میکند.
خاصیت Availablespace :
فضای قابل دسترس درایو را تعیین میکند.

ممنون از شما
متاسفانه نتونستم ازشون استفاده كنم هر راهي امتحان كردم نشد
ميشه لطفا يك مثال برام بزنيد
ممنون

[A_M_IT2005]

سلام
یک Command و List Box و Text Box روی فرم بزار و کدهای زیر رو کپی کن:

Dim FSO1 As New FileSystemObject
Dim Drv1 As Drive

Private Sub Command1_Click()
Set Drv1 = FSO1.GetDrive(Text1.Text)
List1.Clear
List1.AddItem "Free Space :" & Drv1.FreeSpace
List1.AddItem "Total Size :" & Drv1.TotalSize
List1.AddItem "Available Space :" & Drv1.AvailableSpace
End Sub

[A_M_IT2005]

سلام
a_m_it2005 میتونی یه خورده درباره Referances توضیح بدی ؟
ممنون

سلام
پیدا نکردی؟
از منوی Project گزینه سوم از آخر Refrances

[MohammadJavad.T]

سلام
نه من پيداش كرده بودم ميخواستم بدونم اون ها چي هستن؟

[parsbin]

سلام
یک Command و List Box و Text Box روی فرم بزار و کدهای زیر رو کپی کن:
Dim FSO1 As New FileSystemObject
Dim Drv1 As Drive

Private Sub Command1_Click()
Set Drv1 = FSO1.GetDrive(Text1.Text)
List1.Clear
List1.AddItem "Free Space :" & Drv1.FreeSpace
List1.AddItem "Total Size :" & Drv1.TotalSize
List1.AddItem "Available Space :" & Drv1.AvailableSpace

ممنون
ولي از اين خط ايراد ميگيره

Set Drv1 = FSO1.GetDrive(Text1.Text)

[A_M_IT2005]

ممنون
ولي از اين خط ايراد ميگيره

شاید script runtime رو فعال نکردی!!!
از منوی Project گزینه Refrances رو انتخاب کن و از پنجره ای که باز میشه Microsoft Scripting RunTime رو تیک بزن.
اگه این کارو کردی و باز هم پیغام خطا داد ، پیغامشو همینجا بزار تا ببینم حرف حسابش چیه