关于fso的问题：创建对象错误？

Question

Private Sub Command1_Click()
Dim fso As New FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")End Sub
出现错误：
activex component can't create object
我已经引用了scriptruntime了啊？
为什么会这样呢？
我的系统是2000professional

Answer 1

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Answer 2

Dim fso As New FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
是没有问题的
估计是你的Scripting 类型库 (Scrrun.Dll) 有问题

Answer 3

请问scripting类型库会有什么问题呢》

Answer 4

可能是我的vb升过级了，装了sp5，我找了一下，我的系统里有两个scrrun.dll文件，分别在c:\winnt 下和c:\winnt\serverpacks\i386下，我直接引用后边的那个scrrun.dll就可以了

Answer 5

直接使用
Dim fso As New FileSystemObject
或者
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject")两者是一样的，只不过引用的方式不一样罢了
c:\winnt 和c:\winnt\serverpacks\i386 下的scrrun.dll是一样的，只不过c:\winnt\serverpacks\i386 中的dll是系统的一个缓冲区罢了，win2000把它要用的DLL都在这里进行缓冲，是为了调用方便，你也可以直接删除掉

Answer 6

哦？照上边这位老兄的话，看来是我的vb出了一点问题，可能我在"引用“里边加上了对scriptruntime的引用，其实系统并没有真正的引用，直到我直接引用.dll文件时才引用的。我想可能是这样的吧