获取驱动器信息问题

Question

我在书上看到
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：的信息还是一样，是否我的驱动器太大，对象识别不出？

Answer 1

不会呀，我直接复制了你的程序运行，下面是运行结果：
14988222464kb 'd:
10,436,456kb9992126464kb 'c:
4,014,256kb

Answer 2

顺路问下楼上的：
如何区分软驱和USB优盘？
移动硬盘和本地硬盘？

Answer 3

我也用了GetDriveType函数，发现软驱和USB优盘返回的结果都是2，而移动硬盘和本地硬盘都是3，不知道如何进一步区分他们？