Rem 首先点选菜单—>工程—>引用—>在复选框内选择Microsoft Scripting Runtime
Private Sub Form_Click()
Dim fso As New FileSystemObject
Dim Drv As Drive
Set Drv = fso.GetDrive(fso.GetDriveName("c:"))
Print "Drive" & UCase("c:")
Print "总容量" & Drv.TotalSize / 1024&; "K字节"
Print "型号" & Drv.DriveType
Print "文件系统" & Drv.FileSystem
Print "可用空间" & Drv.FreeSpace / 1024&; "K字节"
End Sub