Es gibt Visual Basic Homepages, auf denen eine DLL angeboten wird, mit der man die Datenträger-Bezeichnung oder -Nummer ermitteln kann. Und zwar nicht umsonst. Obwohl sich doch hinter dieser Aktion nur eine lächerliche Win32 API Funktion verbirgt, GetVolumeInformation

Declare Function GetVolumeInformation Lib "kernel32" Alias _
       "GetVolumeInformationA" (ByVal lpRootPathName As String, _
        ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
        ByRef lpVolumeSerialNumber As Long, ByRef lpMaximumComponentLength As Long, _
        ByRef lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _
        ByVal nFileSystemNameSize As Long) As Long

Der DriveInfo Funktion, die sich im Modul befindet, das Sie am Ende dieses Artikels herunterladen können, ist der Laufwerksbuchstabe zu übergeben. Also nur ein Zeichen, z.B. "C". Die Funktion liefert dann Bezeichnung und Nummer zurück. Sollte die Information nicht ermittelt werden können, so wird in der Bezeichnung ASCII Code 0 zurückgeliefert. Beispiel:

Dim lLWBezeichnung As String
Dim lLWNummer      As Long

DriveInfo "C", lLWBezeichnung, lLWNummer

Debug.Print lLWBezeichnung; lLWNummer

Download Sourcecode der DriveInfo Funktion, inkl. Aufruf-Beispiel [5 KB]

Hinweis: GetVolumeInformation liefert noch mehr Informationen zurück. Weitere Informationen dazu in der MSDN.