给定一个路径的字符串，要判断这个路径是否存在,请问用什么函数啊~？

Question

Dim fso As New FileSystemObject
If fso.FolderExists(pathname) Then
....
else
....
end if

Answer 1

If Dir(pathname, vbDirectory) = "" Then
  '该路径不存在
Else
  '该路径存在
End If

Answer 2

'判断目录是否存在 
Function DirExists(ByVal strDirName As String) As Boolean
    Const strWILDCARD$ = "*.*"    Dim strDummy As String    On Error Resume Next    If Right(strDirName, Len(strDirName)) <> "\" Then _
            strDirName = strDirName & "\"
    strDummy = Dir$(strDirName & strWILDCARD, vbDirectory)
    DirExists = Not (strDummy = vbNullString)    Err = 0
End Function