如何检测目录下某个文件是否存在？

来源：百度知道 编辑：UC知道 时间：2024/05/22 12:05:38
何检测如目录下123.dll是否存在,并在Check1上显示出来，当文件存在时Check1为钩选状态,不存在为反之

何检测如某程序是否执行（程序文件名123.exe进程为456.exe)，如执行Check2为钩选状态,不存在为反之
第一个问题指程序所在目录下的文件

'指定文件是否存在
Function FileExists(NewFileName As String) As Boolean
On Error Resume Next
If Len(NewFileName) > 0 Then
FileExists = Len(Dir(NewFileName, vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive)) > 0
End If
End Function

Private Sub Command1_Click()
MsgBox FileExists("c:\2.txt")
End Sub