判断某个路径下的文件是否存在是不用DIR()

Question

对，就用它，不过要看清MSDN的说明。

Answer 1

你可以使用下面的函数看看：Public Function DoesFolderExists(sFolder As String) As Boolean    If (GetAttr(sFolder) And vbDirectory) <> 0 Then
      DoesFolderExists = True
    Else
      DoesFolderExists = False
    End IfEnd Function

Answer 2

光用Dir()函数，假如该目录有其它属性，如系统、隐藏等等，用下面的方法是行不通：
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 请看：http://www.csdn.net/expert/topic/375/375537.shtm

Answer 3

楼上，除非经常性对文件系统进行操作，要不，建议不使用FSO，为了几个功能，增加一个dll，不值得。