هل يحتوي مشغل الأقراص المدمجة على قرص أم لا ؟؟

اذهب الى الأسفل

هل يحتوي مشغل الأقراص المدمجة على قرص أم لا ؟؟

مُساهمة من طرف Coptic_Programmer في الجمعة يوليو 03, 2009 9:59 am

تستطيع من خلال إضافة السطور التالية إلى برنامجك تحديد ما إذا كان مشغل الأقراص المدمجة يحتوي على قرص أم لا

Dim FSO As FileSystemObject
Dim aDrive As Drive
Set FSO = New FileSystemObject
For Each aDrive In FSO.Drives
If aDrive.DriveType = CDRom And aDrive.IsReady = False Then
MsgBox 'لا يوجد قرص في المشغل'
Exit For
ElseIf aDrive.DriveType = CDRom Then
MsgBox aDrive.VolumeName
Exit For
End If
Next
Set FSO = Nothing

Coptic_Programmer
مشرف برامج
مشرف برامج

المساهمات : 43
تاريخ التسجيل : 29/10/2008

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى