P
Poniente
Hi,
I'd like to sometimes open pdf files with foxit reader, but want to
keep the default reader Adobe Reader.
At the moment I'm using this code:
Sub OpenPdffile()
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
strHelpPath = "C:\pdffile.pdf"
If FSO.FileExists(strHelpPath) Then
StartDoc (strHelpPath)
End If
End Sub
Function StartDoc(DocName As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", DocName, _
"", "C:\", SW_SHOWNORMAL)
End Function
Is there anyone able (and willing ;-) ) to help me out?
Poniente
I'd like to sometimes open pdf files with foxit reader, but want to
keep the default reader Adobe Reader.
At the moment I'm using this code:
Sub OpenPdffile()
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
strHelpPath = "C:\pdffile.pdf"
If FSO.FileExists(strHelpPath) Then
StartDoc (strHelpPath)
End If
End Sub
Function StartDoc(DocName As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", DocName, _
"", "C:\", SW_SHOWNORMAL)
End Function
Is there anyone able (and willing ;-) ) to help me out?
Poniente