تشخیص درایوها بااستفاده از تابع "GetDriveType" : 

کدی که در براي شما گذاشته شده این کار را برای شما در ویژوال بیسیک انجام میدهد و می تواند ۳ نوع درایو زیر را مشخص کند.

۱- هارد fixed disk

۲- سی دی رام cd rom

۳-فلش دیسکremovable disk

البته:

** برای این کار احتیاج به timer با interval=100 می باشد.

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

Private Sub Drive1_Change()Me.AutoRedraw = True
  Select Case GetDriveType(Drive1.Drive)     Case Is = 1
        Me.Print "Do not Exists"
     Case Is = 2
        Me.Print "Removable"
     Case Is = 3
        Me.Print "Drive Fixed"
     Case Is = 4
        Me.Print "Remote or Network"
     Case Is = 5
        Me.Print "Cd-Rom"
     Case Is = 6
        Me.Print "Ram disk"
     Case Else
        Me.Print "Unrecognized"
 End SelectEnd Sub