判断文件夹是否存在

[lkz912]

我以下代码判断文件夹（D:\bak)是否存在。在不存在时可以创建文件夹，但是在存在时却会出现错误提示：“实时错误'75'：路径/文件访问错误”,请大家帮忙解决一下。
If Dir("D:\bak") = "" Then
MkDir "D:\bak"
Else
MsgBox "目录已存在！"
End If

分数不多，答对一定给分！

[enmity]

用GetAttr可以解决这个问题。

[dsclub]

一个比较下流的手段，但可以解决问题：
If Dir("d:\bak") = "" Then
ｏｎ　ｅｒｒｏｒ　ｇｏｔｏ　ｄｓ：
MkDir "bak"
Else
ｄｓ：MsgBox "目录已存在！"
End If

[lkz912]

为什么我送出的分不显示呢？

[lkz912]

有没有更好的方法？

[dsclub]

头痛啊！！
问题不是已经可以解决了吗？
55555555

[dsclub]

好办法来了：

Dim MyPath
MyPath = "d:\ff" ' 指定路径。
If Dir(MyPath, vbDirectory) = "" Then
MkDir (MyPath)
Else
MsgBox "目录存在！！"
End If

不给分不行了吧！！

[asciiman]

'Use a function
Function FExist(ByVal sFName as String) As Boolean
Dim Res as Long
Res = Dir(sFName, vbDirectory)
If Res = "" Then
FExist = False
Else
FExist = True
End If
End Function

[MyLf]

用FileSystemObject不就很方便面吗？
Dim Fso As New Scripting.FileSystemObject
Fso.FolderExists(FolderNamePath)

[enmity]

楼上，本来用FSO不错的，可惜，为了一个功能，增加了一个DLL，这样划不来

[enmity]

to:dsclub(云中鹤) & asciiman()

假如该目录有其它属性，如系统、隐藏等等，你这种方法是行不通的。

to:lkz912
你可以使用下面的函数看看：

Public Function DoesFolderExists(sFolder As String) As Boolean

If (GetAttr(sFolder) And vbDirectory) <> 0 Then
DoesFolderExists = True
Else
DoesFolderExists = False
End If

End Function

[lkz912]

to:enmity(灵感之源)
谢谢你，按照你的方法我已经调试成功了。

[lkz912]

to:dsclub(云中鹤)& asciiman()

谢谢你！用你们的方法该问题已经解决，但是我给你们加分时，网页老是出错！实在对不起了！
to:enmity(灵感之源)
你的异议有道理，但是你提供的方法，在该目录不存在是却会出错！

[fraser01]

用ShellExecute函数，参数Find,可以查找目录

[enmity]

to:lkz912(LKZ)　
这不简单了：

Public Function DoesFolderExists(sFolder As String) As Boolean

On Error Goto handleError

If Trim(sFolder) <> vbNullString Then
If (GetAttr(sFolder) And vbDirectory) <> 0 Then
DoesFolderExists = True
Else
DoesFolderExists = False
End If
Else
DoesFolderExists = False
End If
Exit Function

handleError:
DoesFolderExists = False

End Function

即时手写的，没有测试，自己看看吧。

[enmity]

这个函数与楼上两位仁兄的不同之处在于：

他们判断的是给定目录的属性“是”vbDirectory(目录)
我这里判断是给定目录的属性“有”vbDirectory(目录)

当目录含有不只一个属性，如隐藏、系统等其它属性的时候，第一个判断是不全面的。

[Chimae]

太感谢你们了！

[uguess]

判断目录：
Private Function IsDirExist(ByVal sDirName As String) As Boolean

On Error Resume Next

ChDir sDirName
If Err.Number <> 0 Then
IsDirExist = False
Else
IsDirExist = True
End If

End Function

[zyl910]

来晚了！内容同上！（蹭点分）

[enmity]

to:uguess(uguess)

如果按照你的方法，有点是需要补充的，如果目录真的存在，那么，当前目录路径就会被设置为被判断路径，我们应该这样或许会好点：

Private Function IsDirExist(ByVal sDirName As String) As Boolean

Dim o_strPath As String

On Error Resume Next

o_strPath = CurDir

ChDir sDirName

If Err.Number <> 0 Then
IsDirExist = False
Else
IsDirExist = True
End If

ChDir o_strPath

End Function

[xxlroad]

enmity(灵感之源) 的 可用