Office中国论坛/Access中国论坛

标题: 如何用代码判断一目录是否存在? [打印本页]

作者: beibeijia 时间: 2003-12-15 06:20
标题: 如何用代码判断一目录是否存在?
如何用代码判断一目录是否存在?

作者: beibeijia 时间: 2003-12-15 06:32
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.folderExists("d:\mydir") Then
Else
fs.Createfolder "d:\mydir"
End If

有没有用其它的方法呢？

作者: zhengjialon 时间: 2003-12-15 21:26
也可以用错误陷井，去读一个文件夹，如果不存在就会返回一个错误，找到这个错误代码，就可以了。

作者: zzcjp 时间: 2009-4-23 17:44

Set fs = CreateObject("Scripting.FileSystemObject")
If fs.folderExists("d:\mydir") Then
Else
fs.Createfolder "d:\mydir"
End If

有没有用其它的方法呢？
beibeijia 发表于 2003-12-15 06:32

这个方法是正解，简单明了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)