javid_debugger
سه شنبه 14 خرداد 1387, 21:37 عصر
چجوری میشه برنامه نوشت که اسم درایو ها رو تغییر بده ؟
مثلا درایو C رو بزاره javid و D رو هم یه چیز دیگه بزاره؟
اوبالیت به بو
سه شنبه 14 خرداد 1387, 22:38 عصر
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.