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 "

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