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