Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim sDrive As String = "X:\"
 
        If IsDriveReady(sDrive) Then
            MsgBox("Laufwerk " & sDrive & " ist bereit.")
        Else
            MsgBox("Laufwerk " & sDrive & " existiert nicht oder " & _
              "es befindet sich kein Datenträger im Laufwerk!")
        End If
    End Sub
 
 
    Public Function IsDriveReady(ByVal sDrive As String) As Boolean
        ' Prüft, ob das angegebene Laufwerk existiert und 
        ' ob darauf zugegriffen werden kann
        Try
            Dim oDrive As New System.IO.DriveInfo(sDrive)
            Return oDrive.IsReady
        Catch ex As Exception
            Return False
        End Try
 
    End Function
 
End Class