كود لفتح ال Root على القرص المدمج ؟

اتعجب و الله ما رد احد اين ذهب الإخوه الأفاضل ، برجاء المساعدة على وجه السرعه ز جزاكم الله خيرا.

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

File1.Path = "H:\"
يمكنك تغيير  "H:\"  الى مسار القرص المدمج لديك

كود تشغيل البرامج

Shell "H:\Prog.exe", vbNormalFocus
يمكنك تغيير  "H:\"  الى مسار البرنامج الذي تريد تشغيلة

لا اعلم ان كان هذا يقوم بما تريد تحديدا و ان كان غير ذلك فمزيد الشرح في طلبك

رد سريع جداً ....

بالنسبة لفتح المجلد فإن كنت تقصد فتح المجلد باستخدام مستكشف ويندوز فاكتب

Shell "Explorer " & Folder

حيث Folder هو مسار المجلد

شكرا لكم جميعا يا اخوانى الكرام على تجاوبكم الفعال.

اخى العزيز Voodoo شكرا على تجاوبك معى انت و اخى العزيز فتى الفيجوال و لكنى اريد من الكود ان يتعرف على اسم القرص الضوئى و يقوم بفتحه و لقد توصلت الى الشق الأول و هو التعرف على اسم القرص الضوئى و يتبقى الآن اجد الكود الذى يفتح الفهرس الجزرى للقرص و لكن انا عندى فكرة مستوحاة من اكوادكم ساقوم بتنفيذها و ان نجحت ساضعها هنا ان شاء الله و شكرا لكم و السلام عليكم و رحمة الله و بركاته.

( كل عام والجميع بخير بمناسبة شهر رمضان الكريم )

اخوانى لقد جربت الفكرة اللى قلت لكم عليها و الكود هنا و لكن لا يفتح الـ Root للقرص المدمج و انما للقرص الثابت C و لقد حاولت تعريف متغير Drv$ ليضع فيه البرنامج محرف القرص الضوئى و لكن لا فائدة ، ارجوا الإفادة.

Option Explicit
'
 Dim Drv$
 Const drive_removable = 2
 Const drive_fixed = 3
 Const drive_remote = 4
 Const drive_cdrom = 5
 Const drive_ramdisk = 6
'
Private Sub Command1_Click()
  Drv$ = App.Path
  Drv$ = Left(Drv$, 3)
' استعراض محتويات القرص الضوئى
Call Shell("Explorer Drv$", vbMaximizedFocus)
End Sub
'
Private Sub Form_Load()
 Dim r&, allDrives$, JustOneDrive$, pos%, DriveType&
 Dim CDfound As Integer
     allDrives$ = Space$(64)
       r& = GetLogicalDriveStrings(Len(allDrives$), allDrives$)
       allDrives$ = Left$(allDrives$, r&)
    Do
       pos% = InStr(allDrives$, Chr$(0))
    If pos% Then
       JustOneDrive$ = Left$(allDrives$, pos%)
       allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$))
       DriveType& = GetDriveType(JustOneDrive$)
      If DriveType& = drive_cdrom Then
         CDfound% = True
        Exit Do
      End If
    End If
    Loop Until allDrives$ = "" Or DriveType& = 6
    If CDfound% Then
        lblcd = UCase$(JustOneDrive$)
        lblcd = Left(lblcd, 3)
    Else: MsgBox ("Their is no cdrom drive in you'r system..!!")
        lblcd = ""
    End If
End Sub

باعتقد ان lblcd هو اسم اداة label

ان كان كذلك فما عليك الا تغيير كود Private Sub Command1_Click() الى

Private Sub Command1_Click()

Call Shell("explorer " & Lblcd, vbMaximizedFocus)
End Sub

او يمكنك تعريف متغيير لحفظ اسم حرف القرص المدمج و وضعة مكان Lblcd

اخى العزيز Voodoo هذا ما قمت بعمله و لا فائدة و بالنسبة للمتغير فهو Drv$ الموضح بالكود اعلاه ، ارجوا من الإخوة المشاركة ، و اشكرك اخى الكريم Voodoo .

Option Explicit
'
Dim Drv$
Const drive_removable = 2
Const drive_fixed = 3
Const drive_remote = 4
Const drive_cdrom = 5
Const drive_ramdisk = 6
'

Private Sub Command1_Click()

Call Shell("explorer " & Drv, vbMaximizedFocus)
End Sub

'
Private Sub Form_Load()
Dim r&, allDrives$, JustOneDrive$, pos%, DriveType&
Dim CDfound As Integer
    allDrives$ = Space$(64)
      r& = GetLogicalDriveStrings(Len(allDrives$), allDrives$)
      allDrives$ = Left$(allDrives$, r&)
   Do
      pos% = InStr(allDrives$, Chr$(0))
   If pos% Then
      JustOneDrive$ = Left$(allDrives$, pos%)
      allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$))
      DriveType& = GetDriveType(JustOneDrive$)
     If DriveType& = drive_cdrom Then
        CDfound% = True
       Exit Do
     End If
   End If
   Loop Until allDrives$ = "" Or DriveType& = 6
   If CDfound% Then
       Lblcd = UCase$(JustOneDrive$)
       Lblcd = Left(Lblcd, 3)
       Drv = Left(Lblcd, 3)
   Else: MsgBox ("Their is no cdrom drive in you'r system..!!")
       Lblcd = ""
   End If
End Sub

سأجرب الكود و اخبرك بالنتيجة ان شاء الله.

ممتاز....اخى العزيز Voodoo شكراً لك من كل قلبى لقد نجح الكود بالفعل لا اعلم كيف اشكرك انت و اخى الكريم فتى الفيجوال فجزاك الله خيراً.

و القاك على خير فى جولات اخرى ان شاء الله :D