调用Acrobat 7.0打开PDF档出错

sunny-xie

调用Acrobat 7.0,以下的代码有没错误?

Private Sub Command246_Click()
    Dim strDefaultPath As String   

    strDefaultPath = "d:\"
   
    If IsNull(Me.zuhe1.Value) = False Then
        Shell "AcroRd32.exe " & strDefaultPath & Me.zuhe1.Value & "报告书.pdf", vbNormalFocus
    End If
End Sub

tmtony

Shell "AcroRd32.exe " 这里可能需要写明详细的路径

sunny-xie

是的,设置了详细的安装路径就行,
为什么excel.exe 不用设置?
如果用户的Acrobat 7.0不是装在程序设置的路径怎么办?

sunny-xie

按照文件默认格式打开已经可以了,但是要如何判断文件不存在?
Private Sub Command246_Click()
    Dim lngRe As Long
    Dim tempth As String
    tempth = d:\
    lngRe = ShellExecute(Me.hwnd, "open", tempth & Me.zuhe1.Value & "报告书.pdf", vbNullString, vbNullString, SW_SHOWNORMAL)
    If lngRe = SE_ERR_NOASSOC Then
        Shell "rundll32 shell32,OpenAs_RunDLL " & tempth & Me.zuhe1.Value & "报告书.pdf", vbNormalFocus
    End If
   If Dir(lngRe) <> 0 Then
   MsgBox "文件不存在!"
   End If
   
End Sub