vbs枚举磁盘访问磁盘信息

一、FileSystemObject 对象的属性

FileSystemObject 对象包含一个属性——Drives，它返回一个包括本地计算机上所有可用驱动器的集合。

Drives 集合里的每个条目是一个 Drive 对象。Drive 对象的属性：
DriveLetter:返回驱动器的字母
DriveType:返回驱动器的类型,Removeable,Fixed,Netword,CDRom,RamDisk
FileSystem:返回驱动器文件系统类型,”FAT”,”NTFS”,”CDFS”
FreeSpace:返回驱动器上剩余空间的总量
IsReady:返回一个布尔值表示驱动器是否准备好
TotalSize:总容量
SerialNumber:磁盘十进制序列号

Sub ListDisk()
    Set fso=CreateObject("Scripting.FileSystemObject")
    Set drives=fso.Drives
    For Each d In drives
        If d.IsReady Then
            msg="盘符:"&d.DriveLetter&vbCrLf
            msg = msg+"剩余容量:"&Int(d.FreeSpace/(1024*1024*1024))&"G"
            MsgBox msg
        End If
    next
End Sub