Příkaz pro otevření CD v průzkumníku – Visual Basic – Fórum – Programujte.com

Zdrawim
Jak mám udělat (příkaz) pro otevření CD v průzkumníku ?
(nemyslim vysunutí CD)

za předpokladu, že CD má označení D:
ShellExecute Me.hwnd, "open", "Explorer.exe D:", vbNullString, vbNullString, SW_MAXIMIZE

RE: já právě potřebuju relativní cestu k CD; zatím tam mám příkaz: Shell ("explorer D:\")

Co zkusit tuhle část programu pro nalezení označení CD - naplní pole vlastnostmi zařízení, pokud proměnná Disky(I, 5) = 4, pak je to CD.

Dim fso As Object, drv As Object, xI As Byte
Dim Poc_Disk As Integer
Dim Disky(26, 5) As String
Set fso = CreateObject("Scripting.FileSystemObject")

'existujici disky
Poc_Disk = 0
For I = 65 To 90
If fso.DriveExists(Chr(I) & ":") = True Then
Poc_Disk = Poc_Disk + 1
Disky(Poc_Disk, 1) = Chr(I) & ":"
End If
Next I

'typ souboroveho systemu
On Error Resume Next
For I = 1 To Poc_Disk
Set drv = fso.GetDrive(Disky(I, 1))
Disky(I, 2) = drv.FileSystem
Next I

'navesti disku
For I = 1 To Poc_Disk
Disky(I, 3) = drv.FileSystem
Next I

On Error GoTo 0
'typ disku
J = 0
For I = 1 To Poc_Disk
xI = fso.GetDrive(Disky(I, 1)).DriveType
Disky(I, 5) = xI
Select Case xI
Case 1
Disky(I, 4) = "Výměnný disk"
If Disky(I, 1) <> "A:" Then
J = 1
End If
Case 2
Disky(I, 4) = "Pevný disk"
Case 3
Disky(I, 4) = "Síťový disk"
Case 4
Disky(I, 4) = "CD - disk"
Case 5
Disky(I, 4) = "RAM - disk"
Case Else
Disky(I, 4) = "Neznámý"
End Select
Next I

' zobrazení disku, který je CD
For I = 1 To Poc_Disk
If Disky(I, 5) = 4 then
ShellExecute Me.hwnd, "open", "Explorer.exe " & Disky(I, 1), vbNullString, vbNullString, SW_MAXIMIZE For I = 1 To Poc_Disk
End If
Next I

Ten konec byl blbě

' zobrazení disku, který je CD
For I = 1 To Poc_Disk
If Disky(I, 5) = 4 then
ShellExecute Me.hwnd, "open", "Explorer.exe " & Disky(I, 1), vbNullString, vbNullString, SW_MAXIMIZE
End If
Next I

Ovšem je třeba taky ošetřit, pokud má PC více mechanik CD, pak by se otevřelo více oken.

To jkonopasek:dik