Tipp 0314 Laufwerksbezeichnung ändern / setzen
Autor/Einsender:
Datum:
  Tobias Surmann
23.02.2003
Entwicklungsumgebung:   VB 5
Die Laufwerksbezeichnung eines beliebigen Laufwerks kann mit Hilfe der API-Funktion SetVolumeLabel neu gesetzt werden.
 
Option Explicit

Private Declare Function SetVolumeLabel Lib "kernel32" Alias _
          "SetVolumeLabelA" (ByVal lpRootPathName As String, _
          ByVal lpVolumeName As String) As Long

Private Sub cmdOK_Click()
  On Error GoTo errOut

  SetVolumeLabel Left$(drvAuswahl.Drive, 2) & "\", _
        txtNewLabel.Text & Chr$(0)

  drvAuswahl.Refresh
  Exit Sub

errOut:
   MsgBox "Ändern der Laufwerksbezeichnung ist fehlgeschlagen."
End Sub
 
Weitere Links zum Thema
Laufwerks-Informationen ermitteln (FSO)
Seriennummer und Bezeichnung eines Datenträgers

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,9 kB) Downloads bisher: [ 1201 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 20. August 2011