7.4 Wie ermittel ich die Datenträger-Bezeichnung/ -Nummer ?
VB4-VB6
Von: Marcus Warm [Home]
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.