[سوال] محاسبه یا نمایش فضای cd خام

[mhad]

باسلام
میشه بگید ویندوز با چه دستوری تونسته فضای خالی cd یا dvd رو تشخیص بده
و طبق تصویری که می بینید به نمایش بگذاره؟
ممنون میشم کمکم کنید
واقعاً پروژه ام تنها بخاطر همین مشکل خوابیده.

[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]

ابتدا در قسمت ريفرنس ها ،‌گزينه 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

--------------------------------------------
شما امتحان کردید که فضای خالی cd رو نمایش بده، در نمایش درایوها مشکلی نیست. اما تصویری که در سوالم بود ملاک من هست.
این کد کار نمیکنه برادر من

[Ghoghnus]

شما امتحان کردید که فضای خالی cd رو نمایش بده، در نمایش درایوها مشکلی نیست. اما تصویری که در سوالم بود ملاک من هست.
این کد کار نمیکنه برادر من

سلام
من تست کردم هیچ مشکلی نداشت!برای سی دی هم تست کردم!
میشه بیشتر بگید چی نیاز دارید؟

[mhad]

ای بابا......... منظورم سی دی خام هست که در ویندوز فضای خالیشو نمایش میده
چطور میتونم در vb فضای خالی سی دی رو دریافت کنم

این کدی که بچه ها دادند با پیغام زیر روبرو میشه

[Ghoghnus]

ای بابا......... منظورم سی دی خام هست که در ویندوز فضای خالیشو نمایش میده
چطور میتونم در vb فضای خالی سی دی رو دریافت کنم

این کدی که بچه ها دادند با پیغام زیر روبرو میشه

در قسمت ريفرنس ها ،‌گزينه Microsoft Scripting Runtime‌ رو به پروژه اضافه كردید؟
برنامتون رابزارید اینجا لطفا!

[mhad]

رفرنس هم تنظیم کردم

ولی بازهم نمایش نمیده
میشه خودتون یه سورس بدین که نشون بده (فضای خالی cd یا dvd رو

[Ghoghnus]

این کد را ببینید

[mhad]

کار نکرد
شما یه cd یا dvd خام بذار توی دستگاه بعد این کدی رو که دادین اجرا کنین
مطمئنم که کار نمیکنه

[Ghoghnus]

کار نکرد
شما یه cd یا dvd خام بذار توی دستگاه بعد این کدی رو که دادین اجرا کنین
مطمئنم که کار نمیکنه

تست کردم مشکلی نداشت ولی میشه یه کار دیگه هم انجام داد!لیستی از همه محتویات سی دی را دربیار و حجم اونهارا حساب کن!این راه یکم طولانی هست ولی دیگه فرقی واسش نداره که هارد هست یا سی در رام!حساب که کردی فضای اشغال شده را از فضای کل کم کن!