۲۸-آذر-۱۳۹۱, ۲۲:۲۶:۱۷
![[تصویر: Untitled.jpg]](http://ghatreh1382.persiangig.com/image/Untitled.jpg)
باسلام
میشه بگید ویندوز با چه دستوری تونسته فضای خالی cd یا dvd رو تشخیص بده
و طبق تصویری که می بینید به نمایش بگذاره؟
ممنون میشم کمکم کنید
واقعاً پروژه ام تنها بخاطر همین مشکل خوابیده.
Dim dDrive As Drive
Dim FSO As New FileSystemObject
Dim TotalCap
Set dDrive = FSO.Drives("D:\")
TotalCap = dDrive.TotalSize
FreeSpace = dDrive.FreeSpace
(۲۹-آذر-۱۳۹۱, ۱۲:۴۱:۴۱)Di Di نوشته است: [ -> ]ابتدا در قسمت ريفرنس ها ،گزينه Microsoft Scripting Runtime رو به پروژه اضافه كنيد
حالا با استفاده از كد زير مي تونيد به تمام پروپرتيس هاي ديسك ، از جمله فضاي خالي اون دسترسي داشته باشيد
کد:Dim dDrive As Drive
Dim FSO As New FileSystemObject
Dim TotalCap
Set dDrive = FSO.Drives("D:\")
TotalCap = dDrive.TotalSize
FreeSpace = dDrive.FreeSpace
(۲۹-آذر-۱۳۹۱, ۱۹:۳۶:۳۹)mhad نوشته است: [ -> ]شما امتحان کردید که فضای خالی cd رو نمایش بده، در نمایش درایوها مشکلی نیست. اما تصویری که در سوالم بود ملاک من هست.
این کد کار نمیکنه برادر من
(۲۹-آذر-۱۳۹۱, ۲۱:۰۶:۴۹)mhad نوشته است: [ -> ]ای بابا......... منظورم سی دی خام هست که در ویندوز فضای خالیشو نمایش میدهدر قسمت ريفرنس ها ،گزينه Microsoft Scripting Runtime رو به پروژه اضافه كردید؟
چطور میتونم در vb فضای خالی سی دی رو دریافت کنم
این کدی که بچه ها دادند با پیغام زیر روبرو میشه
(۲۹-آذر-۱۳۹۱, ۲۱:۲۸:۳۰)mhad نوشته است: [ -> ]کار نکرد
شما یه cd یا dvd خام بذار توی دستگاه بعد این کدی رو که دادین اجرا کنین
مطمئنم که کار نمیکنه