用最简单的程序判断一个文件是否存在

Question

'*********************************************************
'* 名称：FileExists%(filename$)
'* 功能：此函数用于判断文件是否存在
'* 用法：FileExists%('文件名称')
'* 文件不存在返回 0
'*********************************************************
Function FileExists%(filename$)
    Dim F%
    
    On Error Resume Next
    
    F% = FreeFile
    Open filename$ For Input As #F%
    Close #F%
    
    FileExists% = Not (Err <> 0)
End Function

Answer 1

'    Dim ExclFileName As String
   '     ExclFileName = "c:\stu\ss.exe"
   '     If Dir(ExclFileName) <> "" Then
   '         msgbox "file exist"
   '     End If

Answer 2

good
对只读文件也可以判断

Answer 3

Function FileExist(Filename As String) As Boolean
'检测文件存在与否
FileExist = IIf(Dir(Filename) <> "", True, False)
End Function

Answer 4

if dir("文件名",vbHidden+vbSystem+vbReadOnly+vbNormal)<>"" then 存在