一、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