title image


Smiley Diskettenbezeichnung -> Hier, der Code
Hallo,Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As LongPrivate Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As LongFunction Label_setzen(Laufwerk As String, Bezeichnung As String)On Error GoTo Err_Label_setzen SetVolumeLabel Laufwerk, Left(Bezeichnung, 11) Exit_Label_setzen: Exit FunctionErr_Label_setzen: MsgBox Err.Description Resume Exit_Label_setzen End FunctionFunction Label_lesen(Laufwerk As String) As StringOn Error GoTo Err_Label_lesen Dim Serial As Long, VName As String, FSName As String VName = String$(255, Chr$(0)) FSName = String$(255, Chr$(0)) GetVolumeInformation Laufwerk, VName, 255, Serial, 0, 0, FSName, 255 Label_lesen = Left$(VName, InStr(1, VName, Chr$(0)) - 1) Exit_Label_lesen: Exit FunctionErr_Label_lesen: MsgBox Err.Description Resume Exit_Label_lesen End FunctionSchöne Grüße - Günther - http://www.access-paradies.de
Schöne Grüße, Günther
http://www.access-paradies.de
http://www.ms-office-forum.net


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: