首页officeexcel正文

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

强国说学习2022-07-18283存在指定文件名是否夾里 VBA 檢查文件 exce

Dim fn As String
Dim nn As String
fn = Trim(InputBox("输入要查看文件名（包括扩展名）"))
'Debug.Print fn
nn = Dir(ThisWorkbook.Path & "\数据库备份\*.*")
'******如果为空,则该文件夹里没有任何文件******
If nn = "" Then
MsgBox "该文件夹里没有任何文件!"
Exit Sub

该文章内容来源于网络，由强国说学习-WPS之家(wps.qiangguoshuo.com)收集，希望能为您提供帮助。

'******检查第一个文件名是否一致******
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

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com