VBA檢查文件夾里是否存在指定文件…

Dim fn As String
Dim nn As String
fn = Trim(InputBox("输入要查看文件名（包括扩展名）"))
'Debug.Print fn
nn = Dir(ThisWorkbook.Path & "\数据库备份\*.*")
'******如果为空,则该文件夹里没有任何文件******
If nn = "" Then
    MsgBox "该文件夹里没有任何文件!"
    Exit Sub
'******检查第一个文件名是否一致******
ElseIf fn = nn Then
    MsgBox "文件夹里存在相同的文件名!", vbInformation
    Exit Sub
'******检查其他文件名是否一致*****
ElseIf nn <> "" Then
    Do While nn <> ""
        nn = Dir
        'Debug.Print nn
        If fn = nn Then
            MsgBox "文件夹里存在相同的文件名!", vbInformation
            Exit Sub
        End If
    Loop
'******都没找到该文件名******
MsgBox "文件夹里不存在相同的文件名!", vbCritical
End If