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

واضح آرشیو وب فارسی:سایت ریسک: parsbin27-09-2006, 10:20 PMسلام دوستان چطوري ميشه مقدار فضاي يك درايو سيستم رو با Vb بدست آورد مثلا مقدار فضاي اشغال شده يا آزاد درايو C رو پيشاپيش ممنون A_M_IT200528-09-2006, 05:19 AMسلام FSO فعال کن. Project/Referances/Microsoft Scripting RunTime حالا این دو خط کد رو بنویس : Dim FSO1 as new filesystemobject Dim drv1 as Drive برخی خواص عنصر درایو : خاصیت Totalsize: مقدار فضای کل درایو را بر حسب بایت تعیین میکند خاصیت Freespace: فضای ازاد درایو را بر حسب بایت تعیین میکند. خاصیت Availablespace : فضای قابل دسترس درایو را تعیین میکند. البته خواص دیگر هم داره ، ولی خوب همین سه تا را شما میخواستی دیگه. fozool.mohammad javad28-09-2006, 07:56 AMسلام a_m_it2005 میتونی یه خورده درباره Referances توضیح بدی ؟ ممنون parsbin28-09-2006, 11:46 AMسلام FSO فعال کن. Project/Referances/Microsoft Scripting RunTime حالا این دو خط کد رو بنویس : Dim FSO1 as new filesystemobject Dim drv1 as Drive برخی خواص عنصر درایو : خاصیت Totalsize: مقدار فضای کل درایو را بر حسب بایت تعیین میکند خاصیت Freespace: فضای ازاد درایو را بر حسب بایت تعیین میکند. خاصیت Availablespace : فضای قابل دسترس درایو را تعیین میکند. ممنون از شما متاسفانه نتونستم ازشون استفاده كنم هر راهي امتحان كردم نشد ميشه لطفا يك مثال برام بزنيد ممنون A_M_IT200529-09-2006, 06:01 AMسلام یک Command و List Box و Text Box روی فرم بزار و کدهای زیر رو کپی کن: Dim FSO1 As New FileSystemObject Dim Drv1 As Drive Private Sub Command 1_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_IT200529-09-2006, 06:04 AMسلام a_m_it2005 میتونی یه خورده درباره Referances توضیح بدی ؟ ممنون سلام پیدا نکردی؟ از منوی Project گزینه سوم از آخر Refrances fozool.mohammad javad29-09-2006, 07:12 AMسلام نه من پيداش كرده بودم ميخواستم بدونم اون ها چي هستن؟ parsbin29-09-2006, 03:18 PMسلام یک Command و List Box و Text Box روی فرم بزار و کدهای زیر رو کپی کن: Dim FSO1 As New FileSystemObject Dim Drv1 As Drive Private Sub Command 1_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_IT200530-09-2006, 01:12 AMممنون ولي از اين خط ايراد ميگيره شاید script runtime رو فعال نکردی!!! از منوی Project گزینه Refrances رو انتخاب کن و از پنجره ای که باز میشه Microsoft Scripting RunTime رو تیک بزن. اگه این کارو کردی و باز هم پیغام خطا داد ، پیغامشو همینجا بزار تا ببینم حرف حسابش چیه سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 285]