السلام عليكم
أريد أن أعرف كيف يتم إضهار CD-ROM في الأداة Drive فقط
و Hardisk فقط
و Floppy Drive فقط
أي أن كل مكون وحده كا في برامج النسخ الأقراص مثل نيرو عند أختيار اليسدي روم لا يضهر هارديسك ولا فلوبي درايف
وشكرا
سؤال في الأداة Drive
مغلق
الرجاء لمن يعرف الإجابة
الاداة الافتراضية لا يمكنها عمل ذلك ،، الحل : تصميم أداة خاصة لذلك باستخدام الكومبو العادية و اضافة بعض الخصائص المطلوبة .
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
بسم الله الرحمن الرحيم
أخي العزيز
كا اشار prof_1982 فان الاداة الافتراضية لا يمكنها عمل ذلك
لكن بامكانك اضافة Listbox فيقوم الكود التالي باضافة ال cd-rom اليها
علما أنه يجب عمل reference مع مكتبة microsoft scripting runtime
Public FSO As New FileSystemObject
Private Sub Command1_Click()
On Error GoTo erx
List1.Clear
'If FSO.GetDrive("g").DriveType = CDRom Then
For I = 67 To 90
If (FSO.GetDrive(Chr(I)).DriveType = CDRom) Then
List1.AddItem Chr(I) & ":\"
End If
Next I
erx:
MsgBox "Error Number : " & Err.Number & vbCrLf & " Error Description : " & Err.Description
End Subوالسلام عليكم ورحمة الله وبركاته
تم تعديل هذه المشاركة بواسطة البريشي في 17 نوفمبر 2005 في 09:43
********************* ******************** *********************
(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))
********************* ******************** *********************
لا تقـل من أيـن أبدأ
طـاعـة الله الـبدايـة
***
لا تقـل أين طـريـقي
شــرع الله الهـدايـة
***
لا تـقـل أيـن نعـيمي
جـنـة الله كـفـايـــــة
***
لا تقـل في الغـد أبدأ
ربمـــا تأتـي النهـايـــة
**************** **************** ****************
هذا الموضوع مغلق.