Prüfen ob ein Laufwerk existiert

1
2
3
4
5
6
7
8

Public Function DriveExists(ByVal sDrive As String) As Boolean
    Try
        Dim Drive As New System.IO.DriveInfo(sDrive)
        Return Drive.IsReady
    Catch ex As Exception
        Return False
    End Try
End Function