请给出代码 谢谢
请问一楼
为何指定路径存在文件了
程序还是执行ELSE后面的语句
Public Sub test()
i = Dir("C:\WINDOWS\123.rar", vbNormal)
If (i = "") Then
Exit Sub
Else
'执行你的代码
End If
End Sub
i = Dir("C:\WINDOWS\123.rar", vbNormal)
If (i = "") Then
Exit Sub
Else
'执行你的代码
End If
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2009-05-03
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\WINDOWS\123.RAR") Then
'执行你的代码
Else
Exit Sub
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\WINDOWS\123.RAR") Then
'执行你的代码
Else
Exit Sub
End If
第2个回答 2009-05-04
2楼是正解,1楼可能有点问题