| 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 | |
| |
zurück