急急急!!!在線等。確定同目錄下是否存在指定的文件

[zhanggs0505]

Private Sub Cmd_Findfile_Click()
On Error Resume Next
Dim fso As New FileSystemObject
Dim fil As File
Dim bool As Boolean
'fil = "E:\"
'Set fil = fso.GetFile(App.Path & "\DTS-BCSJ.TXT")
Set fil = fso.FileExists("DTS-BCSJ.TXT")
'提示“形態不符”

If fil <> "" Then
MsgBox "存在該文件(DTS-BCSJ.TXT)", vbCritical, "提示"
Else
MsgBox "不存在該文件(DTS-BCSJ.TXT)", , "提示"
End If
End Sub

[zhanggs0505]

我想查找同目錄下是否存在"dts-bcsj.txt"文件，卻總是提示說FileExists“形態不符”

[bigpig]

同意楼上的！
Dir 函数


返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。

语法

Dir[(pathname[, attributes])]

Dir 函数的语法具有以下几个部分：

部分 描述
pathname 可选参数。用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到 pathname，则会返回零长度字符串 ("")。
attributes 可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略，则会返回匹配 pathname 但不包含属性的文件。
在第一次调用 Dir 函数时，必须指定 pathname，否则会产生错误。如果也指定了文件属性，那么就必须包括 pathname。

Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名，再一次调用 Dir，且不要使用参数。如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误。不必访问到所有匹配当前 pathname 的文件名，就可以改变到一个新的 pathname 上。但是，不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。

提示 由于文件名并不会以特别的次序来返回，所以可以将文件名存储在一个数组中，然后再对这个数组排序。

[liaorui]

if dir(FilePath) = "" then
msgbox "文件不存在"
else
msgbox "文件存在"
end if

[yenight]

private function IsExist(sFileName as String ) As Boolean
dim sT as String
st=dir(sFileName)
if st<>"" then
IsExist=True
else
IsExist=False
endif

end function

[cjhyahoo]

if dir$("dts-bcsj.txt") <>"" then 'fileexist

[hhjjhjhj]

bool = fso.FileExists(App.Path & "DTS-BCSJ.TXT")

Dir 函数 不行 吃过苦头

[itlive]

if dir(FilePath) = "" then
msgbox "文件不存在"
else
msgbox "文件存在"
end if