vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - G?nnen Sie Ihrem SQL-Kommando diesen kr?nenden Abschlu?!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2016
 
zurück
Rubrik: Dateisystem09.05.01
SetVolumeName-Funktion

Ändert die Datenträgerbezeichnung eines bestimmten Laufwerks.

Betriebssystem:  Win95, Win98, WinNT, Win2000, WinMEViews:  4.619 

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise bis zu 120,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 479,20 EUR statt 599,- EUR
  • sevDTA 2.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 20,00 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 55,20 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

    Beschreibung:
    Ändert die Datenträgerbezeichnung eines bestimmten Laufwerks.

    Deklaration:

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

    Parameter:
    lpRootPathNameErwartet den Laufwerksbuchstaben, dessen Datenträgerbezeichnung geändert werden soll.
    lpVolumeNameGibt die neue Datenträgerbezeichnung an.

    Rückgabewert:
    War der Funktionsaufruf erfolgreich wird ein Wert ungleich 0 zurückgegeben. Tritt ein Fehler auf, ist der Rückgabewert "0". Erweiterte Fehler-Informationen können mit der GetLastError-Funktion abgefragt werden.

    Beispiel:

    Private Declare Function SetVolumeLabel Lib "kernel32.dll" _
      Alias "SetVolumeLabelA" ( _
      ByVal lpRootPathName As String, _
      ByVal lpVolumeName As String) As Long
    Private Sub Command1_Click () 
      Dim Retval As Long, MsgResult As Long 
      Dim strDrive As String
      DIM VolName As String
     
      strDrive = "C:\"
      VolName = InputBox("Neue Datenträgerbezeichnung für Laufwerk " & _
        strDrive, "Bezeichnung:")
      If VolName <> "" Then
        RetVal = SetVolumeLabel(strDrive, VolName) 
        If RetVal = 0 Then 
          MsgBox "Fehler beim Ändern der Datenträgerbezeichnung!" & _
        "Evtl. ist das Laufwerk nicht bereit!", vbCritical, "Fehler"
        End If 
      End If 
    End Sub

    Diese Seite wurde bereits 4.619 mal aufgerufen.

    nach obenzurück
     
       

    Druckansicht Druckansicht Copyright ©2000-2016 vb@rchiv Dieter Otter
    Alle Rechte vorbehalten.
    Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

    Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel