VBA中要判断C盘WINDOWS文件夹中是否存在123.rar文件!如果有,程序运行,没有则退出!

来源:百度知道 编辑:UC知道 时间:2024/05/26 05:28:28
请给出代码 谢谢
请问一楼
为何指定路径存在文件了
程序还是执行ELSE后面的语句

Public Sub test()

i = Dir("C:\WINDOWS\123.rar", vbNormal)
If (i = "") Then
Exit Sub
Else
'执行你的代码
End If
End Sub

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\WINDOWS\123.RAR") Then
'执行你的代码
Else
Exit Sub
End If

2楼是正解,1楼可能有点问题