Hej

Hur kan man kontrollera vilken CD'ns enhetsbokstav är

Håller på med ett litet program där jag vill att bara CD skall vara
tillgänglig som enda DRIVE ( oavsett vilken enhetsbokstav den har)

Använder endast VB6

Tacksam för alla förslag

Om Select Case blir 5 har du din CD/DVD
<code>
Option Explicit
Private Declare Function GetDriveType Lib "kernel32" _
Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Command1_Click()
'En ListBox En CommandButton
'2 = Floppy 3 = HD 5 = CD/DVD
Dim i As Long, ret As Long, drv As String
For i = 65 To 90 ' A - Z
ret = GetDriveType(Chr$(i) & ":\")
If ret <> 1 Then
Select Case ret
Case Is = 2
drv = "Floppy"
Case Is = 3
drv = "Harddrive"
Case Is = 5
drv = "CD / DVD"
End Select
List1.AddItem Chr$(i) & " = " & drv
End If
Next 'i
End Sub
</code>

Tackar och bugar

Men hur gör jag för få den default????
utan select case satsen

Nöt jag är,, har löst det

Tackar och bugar