源码下载:检查文件是否存在函数

        关 键 词:  
源码下载:检查文件是否存在函数源码下载
Private Function FileExists(Filename As String) As String
On Error Goto FileDoesNotExist
Open Filename For Input As #1
Close #1
FileExists = True
Exit Function
FileDoesNotExist: FileExists = False
End Function