Visual Basic Scripting Edition | ÕZÑÔ…¢¿¼ |
ÔO(sh¨¨)Öûò·µ»ØÖ¸¶¨òŒ(q¨±)„ÓÆ÷µÄ¾í˜Ë(bi¨¡o)¡£¿É×xŒ‘¡£
object.VolumeName [= newname]
object
±Øßxí—(xi¨¤ng)¡£‘ª(y¨©ng)žé Drive Œ¦ÏóµÄÃû·Q¡£
newname
¿Éßxí—(xi¨¤ng)¡£Èç¹ûÌṩ´Ë…¢”µ(sh¨´)£¬„t newname žéÖ¸¶¨µÄ object µÄÐÂÃû·Q¡£
ÒÔÏ´ú´aÅeÀýÕfÃ÷ÈçºÎʹÓà VolumeName ŒÙÐÔ£º
Function ShowVolumeInfo(drvpath) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fs.GetDriveName(fso.GetAbsolutePathName(drvpath))) s = "
òŒ(q¨±)„ÓÆ÷" & d.DriveLetter & ": - " & d.VolumeName
ShowVolumeInfo = s
End Function
AvailableSpace ŒÙÐÔ | DriveLetter ŒÙÐÔ | DriveType ŒÙÐÔ | FileSystem ŒÙÐÔ | FreeSpace ŒÙÐÔ | IsReady ŒÙÐÔ | Path ŒÙÐÔ | RootFolder ŒÙÐÔ | SerialNumber ŒÙÐÔ | ShareName ŒÙÐÔ | TotalSize ŒÙÐÔ
‘ª(y¨©ng)ÓÃÓÚ£ºDrive Œ¦Ïó