Finde CD-Rom drev -> Drive1

Du bør lige skrive hvilket OS du bruger...

PS: Jeg har eks. ændret min CDR (Recorder) til drevbogstavet R:
og DVD til Z:

Jeg kører XP, men problemet er at jeg ved jo godt hvilket bogstav mit cdrom har, men jeg skal have mit program til at finde det selv, og i en textbox skrive navnet på den cd som sidder i drevet :) kan man det ?
Ligesom i Denne Computer når man sætter en cd i drevet skriver den under cdrom ikonet hvad skiven hedder.

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Form_Load()
Dim i As Integer
Me.AutoRedraw = True
  For i = 65 To 90
    strDrev = Chr(i) & ":\"
    Select Case GetDriveType(strDrev)
        Case 2
            Me.Print "Removable " & strDrev
        Case 3
            Me.Print "Drive Fixed " & strDrev
        Case Is = 4
            Me.Print "Remote " & strDrev
        Case Is = 5
            Me.Print "Cd-Rom " & strDrev
        Case Is = 6
            Me.Print "Ram disk " & strDrev
        Case Else
            Me.Print "Unrecognized " & strDrev
    End Select
  Next i
End Sub

+ Dim strDrev As String

eller sådan:

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Form_Load()
Dim i As Integer
Dim strDrev As String
Me.AutoRedraw = True
  For i = 65 To 90
    strDrev = Chr(i) & ":\"
    If GetDriveType(strDrev) = 5 Then
      Me.Print "Cd-Rom " & strDrev
    End If
  Next i
End Sub

sjh -> Det er meget fint :) tak for det men jeg mangler at finde navnet på mediet altså hvad cd'en hedder (label) :) kan du klare det ? på forhånd mange tak.

Hej.

label= Dir(drevbogst,8)

M.b.h.  Jørn

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Form_Load()
Dim i As Integer
Dim strDrev As String
Dim strLabel As String
Me.AutoRedraw = True
  For i = 65 To 90
    strDrev = Chr(i) & ":\"
    If GetDriveType(strDrev) = 5 Then
    strLabel = Dir(strDrev, vbVolume)
      If strLabel <> "" Then
        Me.Print "CD-ROM (" & strDrev & ") (" & strLabel & ")"
          Else
        Me.Print "CD-ROM (" & strDrev & ") (No Label)"
      End If
    End If
  Next i
End Sub

sjh -> :) takker mange gange :)

selv tak :-)