标题: 为什么这段代码运行后在相应的路径下没有生成文件夹呢？ [打印本页] 作者: suxinghe 时间: 2007-12-17 20:43 标题: 为什么这段代码运行后在相应的路径下没有生成文件夹呢？ Function CreateFolderDemo()
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("d:\New Folder")
CreateFolderDemo = f.Path
msgbox(CreateFolderDemo)
End Function作者: ch4isme 时间: 2007-12-17 21:00
没释放资源
set fso = nothing作者: suxinghe 时间: 2007-12-17 21:04
加上了这个代码还是没有生成啊？
Function CreateFolderDemo
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("d:\New Folder")
set fso = nothing
End Function作者: huangzhichong 时间: 2007-12-17 21:59
楼主是不是没有去call 这个function 啊？
如果是的话最后加上个
Call CreateFloderDemo()
就应该可以了。