Laufwerkstyp anzeigen

Laufwerkstyp anzeigen via GetDriveType
Declare Function GetDriveType Lib "kernel32" Alias _
"GetDriveTypeA" (ByVal nDrive As String) As Long
Function LaufwerkTyp(strLaufwerk As String) As String Diese Funktion meldet den Laufwerkstyp.
Dim lngRWert As Long
lngRWert = GetDriveType(strLaufwerk)
Select Case lngRWert
Case 2
LaufwerkTyp = "Diskette/Wechselplatte"
Case 3
LaufwerkTyp = "Festplatte"
Case 4
LaufwerkTyp = "Netzlaufwerk"
Case 5
LaufwerkTyp = "CD-ROM"
Case 6
LaufwerkTyp = "RAM-Disk"
Case Else
LaufwerkTyp = ""
End Select
End Function
Sub LaufwerkeAuflisten() Diese Prozedur setzt auf die Funktion LaufwerkTyp()
Dim intI As Integer auf und gibt alle Laufwerke in eine Message-Box aus.
Dim strLaufwerk As String
Dim strTyp As String
For intI = 65 To 90
strLaufwerk = Chr$(intI) & ":"
strTyp = LaufwerkTyp(strLaufwerk)
If strTyp > "" Then
MsgBox strLaufwerk & " = " & strTyp
End If
Next
End Sub
           
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.