类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
我在书上看到
Private Sub Command1_Click()
Dim fso As New filesystemobject, drv As Drive, s As String
Set drv = fso.GetDrive(fso.GetDriveName("c:"))
s = s & drv.TotalSize
s = s & "kb" & vbCrLf
s = s & FormatNumber(drv.FreeSpace / 1024, 0)
s = s & "kb"
MsgBox s
End Sub
但显示的信息都是209…………,换其他如d：，e：的信息还是一样，是否我的驱动器太大，对象识别不出？
网友回答：