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