Microsoft® Visual Basic® Scripting Edition VolumeName ŒÙÐÔ |
ÕZÑÔ…¢¿¼ °æ±¾ 3 |
ÔOÖûò·µ»ØÖ¸¶¨òŒ„ÓÆ÷µÄ¾í˜Ë¡£¿É×xŒ‘¡£
object.VolumeName [= newname]VolumeName ŒÙÐÔµÄÕZ·¨ÓÐÒÔϲ¿·Ö£º
²¿·Ö ÃèÊö object ±Øßx¡£‘ªžé Drive Œ¦ÏóµÄÃû·Q¡£ newname ¿Éßx¡£Èç¹ûÌṩ´Ë…¢”µ(sh¨´)£¬„t newname žéÖ¸¶¨µÄ object µÄÐÂÃû·Q¡£
ÒÔÏ´ú´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