Detect drive types

Looking for API to detect drive types on a system
Win 98 VB5

Here is an example of how to accomplish that...

(You need a ListBox named List1 to test this example)

Code:

---

Option Explicit

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

Private Enum DriveTypes
   
    DRIVE_UNDERTIMINED = 0
    DRIVE_NONEXISTANT = 1
    DRIVE_REMOVABLE = 2
    DRIVE_FIXED = 3
    DRIVE_REMOTE = 4
    DRIVE_CDROM = 5
    DRIVE_RAMDISK = 6
   
 End Enum
   
Private Sub Form_Load()
 Dim sDrive As String, iDrive As Integer
 Dim dt As DriveTypes
 
 For iDrive = vbKeyA To vbKeyZ
 
    sDrive = Chr(iDrive) & ":\"
   
    dt = GetDriveType(sDrive)
   
    Select Case dt
   
        Case DRIVE_REMOVABLE
           
            List1.AddItem sDrive & " = REMOVABLE DRIVE"
           
        Case DRIVE_FIXED
           
            List1.AddItem sDrive & " = FIXED DRIVE"
           
        Case DRIVE_REMOTE
       
            List1.AddItem sDrive & " = REMOTE DRIVE"
           
        Case DRIVE_CDROM
       
            List1.AddItem sDrive & " = CDROM"
           
        Case DRIVE_REMOTE
       
            List1.AddItem sDrive & " = RAMDISK"
           
        Case DRIVE_NONEXISTANT
           
            List1.AddItem sDrive & " = NO DRIVE!"
           
        Case DRIVE_UNDERTIMINED
       
            List1.AddItem sDrive & " = DRIVE UNDERTIMINED"
           
    End Select
       
 Next iDrive
       
 
 
End Sub

---