![]() |
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
|
|
|
|
|
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: [ 1286 ]
|
|
|