Den Typ eines Laufwerks ermitteln

1
2
3
4

Public Function GetDriveType(ByVal sDrive As String) As System.IO.DriveType
    Dim Drive As New System.IO.DriveInfo(sDrive)
    Return Drive.DriveType
End Function