Detect drive types

[ca_huk]

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

[YoungBuck]

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

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

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