检查7-Zip (64 /32位)的正确安装
检查7-Zip (64 /32位)的正确安装
提问于 2019-04-14 17:34:20
我的目标是避免来自VBA调试器的错误消息。需要检查安装了哪个版本的7-zip、程序文件/或程序文件(x86)：
尝试执行简单的"IF“函数。
Dim PathZipProgram As String
strCommand As String
PathZipProgram = "C:\Program Files(x86)\7-Zip\7z.exe"
If Right(PathZipProgram, 1) Then
PathZipProgram = PathZipProgram
Else
PathZipProgram = "C:\Program Files\7-Zip\7z.exe"
End If
Shell strCommand
strCommand = """" & PathZipProgram & """ a -tzip """VBA找不到7zip。
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-04-14 19:30:04
您可以使用如下所示的function检查该文件是否存在：
Function FileExists(FilePath As String) As Boolean
Dim TestStr As String
TestStr = ""
On Error Resume Next
TestStr = Dir(FilePath)
On Error GoTo 0
If TestStr = "" Then
FileExists = False
Else
FileExists = True
End If
End Function然后在你的代码中使用它：
Dim PathZipProgram As String
Dim strCommand As String
PathZipProgram = "C:\Program Files(x86)\7-Zip\7z.exe"
If Not FileExists(PathZipProgram) Then
PathZipProgram = "C:\Program Files\7-Zip\7z.exe"
End If
Shell strCommand
strCommand = """" & PathZipProgram & """ a -tzip """希望以此作为帮助的起点。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/55673833
复制相关文章
相似问题