Option Explicit



' GetDriveType return values

Const DRIVE_DONT_EXIST = 1

Const DRIVE_REMOVABLE = 2

Const DRIVE_FIXED = 3

Const DRIVE_REMOTE = 4

Const DRIVE_CDROM = 5

Const DRIVE_RAMDISK = 6



Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _

                              (ByVal nDrive As String) As Long



Sub ListAllDrives()

    Const CHAR_A = 65

    Const CHAR_Z = 90

    Dim i As Byte

    Dim sDrive As String

    For i = CHAR_A To CHAR_Z

        sDrive = Chr(i) & ":"

        Select Case GetDriveType(Chr(i) & ":")

        Case DRIVE_DONT_EXIST

            Debug.Print "Laufwerk "; sDrive; " existiert nicht."

        Case DRIVE_REMOVABLE

            Debug.Print "Laufwerk "; sDrive; " ist ein herausnembarer Datenträger"

        Case DRIVE_FIXED

            Debug.Print "Laufwerk "; sDrive; " ist eine Festplatte"

        Case DRIVE_REMOTE

            Debug.Print "Laufwerk "; sDrive; " ist ein Netzlaufwerk"

        Case DRIVE_CDROM

            Debug.Print "Laufwerk "; sDrive; " ist ein CD-ROM-Laufwerk"

        Case DRIVE_RAMDISK

            Debug.Print "Laufwerk "; sDrive; " ist eine Ram-Disk"

        End Select

    Next

End Sub