چجوری میشه اسم درایو ها رو تغییر داد ؟

[javid_debugger]

چجوری میشه برنامه نوشت که اسم درایو ها رو تغییر بده ؟

مثلا درایو C رو بزاره javid و D رو هم یه چیز دیگه بزاره؟

[اوبالیت به بو]

Private Declare Function SetVolumeLabelA Lib "kernel32.dll" (ByVal lpRootName As String, ByVal lpVolumeName As String) As Long
Private Sub CmdChange_Click()
Dim DriveType As String
Dim DriveName As String
Dim Name As Variant
DriveType = InputBox("نام درايو مورد نظر را وارد كنيد", "نام درايو")
DriveName = InputBox("نام جديد براي درايو را وارد كنيد", "نام جديد")
Name = SetVolumeLabelA(DriveType & ":\", DriveName)
MsgBox "درايو" & Space(2) & DriveType & ":\" & Space(2) & "نامش تغيير يافت", vbInformation, "íÇã پيام"
End Sub