عوض کردن برچسب یک درایو(Drive Label)
روش عوض کردن برچسب درایو:
Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long
Private Sub Cmd_ChangeLabel_Click()
RootName = "C:\"
NewLabel = "Devil Soft"
(Call SetVolumeLabel(RootName, NewLabel
End Sub
باز هم مثل همیشه مشکل پرانتز ها هست
+ نوشته شده در جمعه بیست و هفتم آبان 1384ساعت 18:52 توسط Stanic Prince
|
