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


VolumeName ŒÙÐÔ

ÔO(sh¨¨)Öûò·µ»ØÖ¸¶¨òŒ(q¨±)„ÓÆ÷µÄ¾í˜Ë(bi¨¡o)¡£¿É×xŒ‘¡£

object.VolumeName [= newname]

…¢”µ(sh¨´)

object

±Øßxí—(xi¨¤ng)¡£‘ª(y¨©ng)žé Drive Œ¦ÏóµÄÃû·Q¡£

newname

¿Éßxí—(xi¨¤ng)¡£Èç¹ûÌṩ´Ë…¢”µ(sh¨´)£¬„t newname žéÖ¸¶¨µÄ object µÄÐÂÃû·Q¡£

ÕfÃ÷

ÒÔÏ´ú´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 Œ¦Ïó