如何用代码判断一目录是否存在?

beibeijia

如何用代码判断一目录是否存在?

zzcjp

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

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

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

zhengjialon

也可以用错误陷井，去读一个文件夹，如果不存在就会返回一个错误，找到这个错误代码，就可以了。

beibeijia

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

有没有用其它的方法呢？