使用FileSystemObject对象来获取磁盘信息

Dim fso,drv,s
Set fso=CreateObject ("Scripting.FileSystemObject")' 创建FileSystemObject 对象
Set drv =fso.GetDrive(fso.GetDriveName("C:\")) ' 用getDive方法获取磁盘对象
s=s&drv.VolumeName '获取磁盘卷标名
s= s&"Total Space:"&FormatNumber(drv.TotalSize/1024,0)& "Kb" '获取磁盘总空间大小
s=s&"Free Space:"&FormatNumber(drv.FreeSpace/1024,0)&"Kb" '‘获取磁盘剩余空间大小
msgbox s