Change the name of a disk drive
Change the name of a disk drive
API Declarations
(ByVal lpRootPathName As String, _
ByVal lpVolumeName As String) As Long
Rate Change the name of a disk drive
(3(3 Vote))
'
Public Function SetVolumeName(sDrive As String, n As String) As Boolean
Dim i As Long
i = SetVolumeLabelA(sDrive + ":\" & Chr$(0), n & Chr$(0))
SetVolumeName = IIf(i = 0, False, True)
End Function
Change the name of a disk drive Comments
No comments yet — be the first to post one!
Post a Comment