Dim fn As String
Dim nn As String
fn = Trim(InputBox("输入要查看文件名(包括扩展名)"))
'Debug.Print fn
nn = Dir(ThisWorkbook.Path & "\数据库备份\*.*")
'******如果为空,则该文件夹里没有任何文件******
If nn = "" Then
'******检查第一个文件名是否一致******
ElseIf fn = nn Then
'******检查其他文件名是否一致*****
ElseIf nn <> "" Then
'******都没找到该文件名******
MsgBox "文件夹里不存在相同的文件名!", vbCritical
End If
VBA檢查文件夾里是否存在指定文件…
最新推荐文章于 2023-09-27 12:29:37 发布