PDA

نسخه کامل مشاهده نسخه کامل : چگونگي بدست آوردن مقدار فضاي درايو ؟


parsbin
27-09-2006, 22:20
سلام دوستان
چطوري ميشه مقدار فضاي يك درايو سيستم رو با Vb بدست آورد
مثلا مقدار فضاي اشغال شده يا آزاد درايو C رو
پيشاپيش ممنون
A_M_IT2005
28-09-2006, 05:19
سلام
FSO فعال کن. Project/Referances/Microsoft Scripting RunTime
حالا این دو خط کد رو بنویس :
Dim FSO1 as new filesystemobject
Dim drv1 as Drive
برخی خواص عنصر درایو :
خاصیت Totalsize:
مقدار فضای کل درایو را بر حسب بایت تعیین میکند

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

البته خواص دیگر هم داره ، ولی خوب همین سه تا را شما میخواستی دیگه.
MohammadJavad.T
28-09-2006, 07:56
سلام
a_m_it2005 میتونی یه خورده درباره Referances توضیح بدی ؟
ممنون
parsbin
28-09-2006, 11:46
سلام
FSO فعال کن. Project/Referances/Microsoft Scripting RunTime
حالا این دو خط کد رو بنویس :
Dim FSO1 as new filesystemobject
Dim drv1 as Drive
برخی خواص عنصر درایو :
خاصیت Totalsize:
مقدار فضای کل درایو را بر حسب بایت تعیین میکند

خاصیت Freespace:
فضای ازاد درایو را بر حسب بایت تعیین میکند.
خاصیت Availablespace :
فضای قابل دسترس درایو را تعیین میکند.
ممنون از شما
متاسفانه نتونستم ازشون استفاده كنم هر راهي امتحان كردم نشد
ميشه لطفا يك مثال برام بزنيد
ممنون
A_M_IT2005
29-09-2006, 06:01
سلام
یک 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
29-09-2006, 06:04
سلام
a_m_it2005 میتونی یه خورده درباره Referances توضیح بدی ؟
ممنون
سلام
پیدا نکردی؟
از منوی Project گزینه سوم از آخر Refrances
MohammadJavad.T
29-09-2006, 07:12
سلام
نه من پيداش كرده بودم ميخواستم بدونم اون ها چي هستن؟
parsbin
29-09-2006, 15:18
سلام
یک 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
30-09-2006, 01:12
ممنون
ولي از اين خط ايراد ميگيره

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