VB-Homepage Tipp 129
Datenträgernamen [Label] ändern
Das das Auslesen des Datenträgernamens sehr einfach auch mit dem Dir Befehl erfolgen kann, das war in einem vorangegangenen Tipp schon zu erfahren,
wenn es nun darum geht, den Datenträgernamen zu ändern,
müssen wir allerdings wieder die API bemühen.

setname.vbp
Form=setname.frm
ProjWinSize=71,552,248,215
ProjWinShow=2
ExeName32="setname.exe"
Name="Projekt1"
HelpContextID="0"
StartMode=0
VersionCompatible32="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0

setname.frm
VERSION 4.00
Begin VB.Form Form1
Caption = "VB-Homepage Tipp"
ClientHeight = 1650
ClientLeft = 1140
ClientTop = 1515
ClientWidth = 5115
Height = 2055
Left = 1080
LinkTopic = "Form1"
ScaleHeight = 1650
ScaleWidth = 5115
Top = 1170
Width = 5235
Begin VB.CommandButton Command1
Caption = "Umbenennen des Labelnamens eines Datenträgers"
Height = 255
Left = 480
TabIndex = 0
Top = 360
Width = 4215
End
Begin VB.Label Label2
Caption = "Gefunden auf Cobbs Inside Visual Basic"
Height = 255
Left = 120
TabIndex = 2
Top = 1320
Width = 3255
End
Begin VB.Label Label1
Caption = "Zum Test wird hier Laufwerk ""C"" als ""ErstePlatte"" benannt."
Height = 255
Left = 480
TabIndex = 1
Top = 720
Width = 4215
End
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long
Function NeuerLabelName(Laufwerk$, NeuerName$)
If Len(Laufwerk$) > 1 Then Laufwerk$ = Left$(Laufwerk$, 1)
Laufwerk$ = Laufwerk$ + ":\"
If NeuerName$ = "" Then NeuerName$ = Chr$(0) 'also Leer
NeuerLabelName = SetVolumeLabel(Laufwerk$, NeuerName$)
End Function
Private Sub Command1_Click()
Call NeuerLabelName("C", "ErstePlatte")
End Sub
Um den Code zu nutzen, erstellen Sie sich mit einem Editor (z.Bsp. Notepad) Dateien
die Sie wie angegeben benennen und kopieren Sie den Code hinein. Speichern Sie Ihre
Datei ab und öffnen Sie das Projekt entweder direkt aus einem Dateimanager oder öffnen
Sie Ihre VB Software und laden sich das Projekt.
Tipp-Download
Quelle : Cobbs Inside Visual Basic
Zurück zur Übersichtsseite