Find drive bogstav via VB

\'------------------------------- Form1 eller Module1 -------------------------------
Private Declare Function GetDriveType Lib \"kernel32\" Alias \"GetDriveTypeA\" (ByVal nDrive As String) As Long
\'------------------------------- Form1 eller Module1 -------------------------------



\'-------------------------------------- Form1 --------------------------------------
Private Sub Form_Load()
Dim nDrive, cDrive, DriveType As String
    List1.Clear
    List1.AddItem \"Drive Name\" & vbTab & \"Drive Type\"
    List1.AddItem \"\"
    For i = 65 To 90
    nDrive = Chr(i) & \":\\\"
    cDrive = GetDriveType(nDrive)
    Select Case cDrive
    Case 2
        DriveType = \"Floppy Disk Drive\"
    Case 3
        DriveType = \"Primary/Logical Disk Drive\"
    Case 4
        DriveType = \"Network Drive\"
    Case 5
        DriveType = \"CD-ROM\"
    End Select
    If cDrive <> 1 Then
        List1.AddItem nDrive & vbTab & vbTab & DriveType
    Else: End If
    Next i
End Sub
\'-------------------------------------- Form1 --------------------------------------

Hej SJH. Tak for dit svar, jeg kan dog ikke få det til at virke, jeg får en fejl i GetDriveType, hænger det sammen med at jeg kører VB 5.0 ?

jeg tror nu mangler en error handler

i starten af form_load skrives
On ERROR resume next

Nu er jeg ikke nogen ørn til VB, men ved at indsætte On ERROR resume next i starten af formload får jeg samme fejl. Så jeg er lidt på den.

Ja jag kan godt se at der er fejl hvis du intaster det i et module prøv sådan:


\'-------------------------------  Module1 -------------------------------
Declare Function GetDriveType Lib \"kernel32\" Alias \"GetDriveTypeA\" (ByVal nDrive As String) As Long
\'-------------------------------  Module1 -------------------------------


\'-------------------------------------- Form1 --------------------------------------
Private Sub Form_Load()
Dim nDrive, cDrive, DriveType As String
    List1.Clear
    List1.AddItem \"Drive Name\" & vbTab & \"Drive Type\"
    List1.AddItem \"\"
    For i = 65 To 90
    nDrive = Chr(i) & \":\\\"
    cDrive = GetDriveType(nDrive)
    Select Case cDrive
    Case 2
        DriveType = \"Floppy Disk Drive\"
    Case 3
        DriveType = \"Primary/Logical Disk Drive\"
    Case 4
        DriveType = \"Network Drive\"
    Case 5
        DriveType = \"CD-ROM\"
    End Select
    If cDrive <> 1 Then
        List1.AddItem nDrive & vbTab & vbTab & DriveType
    Else: End If
    Next i
End Sub
\'-------------------------------------- Form1 --------------------------------------

<hvcg> jeg har sendt et eksempel til dig.

Det var lige hvad jeg stod og manglede, til tilretning til mit program og så er jeg kørende. Tak for det.

Det var lige hvad jeg manglede, til tilretning til mit program og så var jeg kørende. Tak for det.

sjh > send det også lige til mig

vbcode@tsn.dk