点击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