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