Drive 对象

爱疯

Sub test()
    '   以下注释只为方便记忆

    Dim fs, d
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive("C:\")


    '    返回类型
    '    MsgBox d.DriveType '返回2
    '
    '
    '    返回可用空间(单位：Byte)
    '    MsgBox Round(d.AvailableSpace / 1024 ^ 3, 2) & "G"
    '
    '
    '    返回共享名
    '    MsgBox d.ShareName
    '
    '
    '    返回根文件夹
    '    MsgBox d.RootFolder '返回C:\
    '
    '
    '    '返回剩余空间(单位：Byte)
    '    MsgBox Round(d.freeSpace / 1024 ^ 3, 2) & "G"
    '
    '
    '    返回卷标名
    '    MsgBox d.VolumeName
    '
    '
    '    返回总空间(单位：Byte)
    '    MsgBox Round(d.TotalSize / 1024 ^ 3, 2) & "G"
    '
    '
    '    如果指定的驱动器已准备好，返回 True；否则返回 False。
    '    MsgBox d.isready    '返回True
    '
    '
    '    返回驱动器字母
    '    MsgBox d.DriveLetter
    '
    '
    '    返回文件系统类型
    '    MsgBox d.FileSystem
    '

    '    返回用于唯一标识磁盘卷标的十进制序列号?
    '    MsgBox d.SerialNumber

    '
    '    返回驱动器路径
    '    MsgBox d.Path '返回C:


End Sub

最后一个学员

Drive米也东东???