fso 无法创建文件夹,该怎么解决

fso 无法创建文件夹
我用FSO对象创建文件夹   有的机器可以   有的却出错
Dim   fso   As   New   FileSystemObject
Dim   fr   As   Folder

Private   Sub   Command1_Click()
Set   fr   =   fso.CreateFolder( "e:\temp ")
End   Sub
错误提示   ：   ACTIVEX部件不能正确创建对象
请帮助分析一下   谢谢


------解决方案--------------------
首先你要引用
Microsoft Scripting Runtime
然后


Dim fso As FileSystemObject
Dim fr As Folder

Private Sub Command1_Click()
Set fso = New FileSystemObject
Set fr = fso.CreateFolder( "e:\temp ")
Set fso = Nothing
End Sub
------解决方案--------------------
"Scripting.FileSystemObject "

注意书写，有一丁点错误都不行，而这种后期绑定出错提示是很少的