R8.16 Das Volume-Label lesen/schreiben

Aufgabe

Sie möchten aus Ihrem Programm heraus auf den Laufwerksbezeichner (Label) zugreifen.

Lösung

Auch hier bleibt Ihnen nur der mühsame Weg über die API-Funktionen.

Oberfläche

In den Detailbereich eines Formulars setzen Sie ein Textfeld und eine Befehlsschaltfläche.

Quelltext

Einbinden der API-Funktionen:

Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" _
        (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long
Private Declare Function GetVolumeInformation Lib "kernel32" Alias _ "GetVolumeInformationA" (ByVal lpRootPathName$, ByVal pVolumeNameBuffer$, ByVal nVolumeNameSize&, _ lpVolumeSerialNumber&, lpMaximumComponentLength&, lpFileSystemFlags&, _ ByVal lpFileSystemNameBuffer$, ...

Get Microsoft Access Programmierrezepte now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.

Start your free trial