为什么这段代码运行后在相应的路径下没有生成文件夹呢？

suxinghe · 发表于 2007-12-17 20:43:37

Function CreateFolderDemo()
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("d:\New Folder")
CreateFolderDemo = f.Path
msgbox(CreateFolderDemo)
End Function

huangzhichong · 发表于 2007-12-17 21:59:51

楼主是不是没有去call 这个function 啊？
如果是的话最后加上个
Call CreateFloderDemo()
就应该可以了。

suxinghe · 发表于 2007-12-17 21:04:44

加上了这个代码还是没有生成啊？

Function CreateFolderDemo
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("d:\New Folder")
set fso = nothing
End Function

ch4isme · 发表于 2007-12-17 21:00:47

没释放资源
set fso = nothing

		自动登录	找回密码
密码			(注-册)加入51Testing

[求助] 为什么这段代码运行后在相应的路径下没有生成文件夹呢？

相关帖子

站长推荐 /1