' Verweis auf Microsoft Scripting Runtime setzen.
 
Option Explicit
 
Dim oFSO As New FileSystemObject
Dim oDrive As Drive
 
 
Private Sub Command1_Click()
 
Set oDrive = oFSO.GetDrive("K")
 
If oDrive.IsReady Then
    'oDrive.DriveType = 1 (Wechseldatenträger)
    'oDrive.DriveType = 2 (Festplatte)
    MsgBox "Laufwerktyp = " & oDrive.DriveType
Else
  MsgBox "Laufwerk nicht bereit ! "
End If
 
End Sub