欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Microsoft® Visual Basic® Scripting Edition
VolumeName ŒÙÐÔ
ÕZÑÔ…¢¿¼
°æ±¾ 3

Õˆ…¢é†                   ‘ªÓÃÓÚ


ÃèÊö
ÔOÖûò·µ»ØÖ¸¶¨òŒ„ÓÆ÷µÄ¾í˜Ë¡£¿É×xŒ‘¡£
ÕZ·¨
object.VolumeName [= newname]

VolumeName ŒÙÐÔµÄÕZ·¨ÓÐÒÔϲ¿·Ö£º

²¿·Ö ÃèÊö
object ±Øßx¡£‘ªžé Drive Œ¦ÏóµÄÃû·Q¡£
newname ¿Éßx¡£Èç¹ûÌṩ´Ë…¢”µ(sh¨´)£¬„t newname žéÖ¸¶¨µÄ object µÄÐÂÃû·Q¡£

ÕfÃ÷
ÒÔÏ´ú´aÅeÀýÕfÃ÷ÈçºÎʹÓà VolumeName ŒÙÐÔ£º
Sub ShowVolumeInfo(drvpath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    s = "òŒ„ÓÆ÷ " & d.DriveLetter & ": - " & d.VolumeName
    MsgBox s
End Sub