为何找不到TIF文件

付谦

点击ACDSEE可以打开TIF位图文件，用以下代码提示找不到文件，C:\Program Files\ACD Systems\ACDSee\5.0\ACDSee5.exe是对的，错在何处？
Private Sub Command22_Click()
If Text40 <> "" Then
Dim Filepath As String
Dim RetVal
Filepath = Me![文件位置]
Select Case Me![文件类型]
Case "DOC"
RetVal = Shell("Winword " & Chr(34) & Filepath & Chr(34), vbMaximizedFocus)
Case "TIF"
RetVal = Shell("C:\Program Files\ACD Systems\ACDSee\5.0\ACDSee5.exe" & Chr(34) & Filepath & Chr(34), vbMaximizedFocus)
End Select
Else
  MsgBox "没有附件供打开"
End If
End Sub

tmtony

C:\Program Files\ACD Systems\ACDSee\5.0\ACDSee5.exe 里面 再加多层 引号

付谦

tmtony 发表于 2012-3-23 12:46
C:\Program Files\ACD Systems\ACDSee\5.0\ACDSee5.exe 里面 再加多层 引号

我试了几次不成功，请二楼详细指点多层 引号如何加？谢谢！

付谦

付谦 发表于 2012-3-23 18:19
我试了几次不成功，请二楼详细指点多层 引号如何加？谢谢！

付谦

tmtony 发表于 2012-3-23 12:46
C:\Program Files\ACD Systems\ACDSee\5.0\ACDSee5.exe 里面 再加多层 引号

通过思考找原因,终于知道了问题所在,问题得到解决.原来仅是2个文件名之间少了一个空格,讲出来引以为戒,少走弯路