我用FileSystemObject获取硬盘驱动器时怎么提示"active 部件不能创建对象"
Dim drv As Drive
Dim fsox As New FileSystemObject
Set drv = fsox.GetDrive("c:")
Text1.Text = drv.TotalSize / 1024
提示"active 部件不能创建对象"
请问哪里出错了?
问题点数：20、回复次数：8Top
1 楼luckyu（）回复于 2006-05-04 18:21:25 得分 0
在VB中使用FSO,需要加载一个称为 Scripting 的类型库,方法为
"工程"-------"引用" 然后引用"Microsoft Scripting Runtime"
就可以了Top
2 楼luckyu（）回复于 2006-05-04 18:22:03 得分 0
你的代码引用库后,然后已经测试成功在我的电脑上Top
3 楼lluo666（）回复于 2006-05-04 19:20:05 得分 0
我的是已经引用了,可是就是不行Top
4 楼luckyu（）回复于 2006-05-04 21:19:45 得分 0
重新安装机器系统或者VB,在我的机器没有问题Top
5 楼lluo666（）回复于 2006-05-04 21:45:29 得分 0
我刚才也试了下,在别的机子上可以,可是在我机子就是不行,真的好烦躁吧
Top
6 楼supergreenbean（超级绿豆(MSMVP - VB) - 升级归来~）回复于 2006-05-04 21:58:06 得分 0
建议你regsvr32 scrrun.dllTop
7 楼lluo666（）回复于 2006-05-04 22:52:04 得分 0
谢谢了,解决了Top
8 楼wk_1978（）回复于 2006-06-02 20:51:25 得分 0
请问楼主怎么解决的啊,我被这个问题搞了一下午了.Top
