Opening a pdf with adobe 4.0 problem

[Nhunter]

Some of the users I support use adobe 5.0 and others have adobe 4.0. I am trying to shell adobe to open a file through vb6 with the following code:

for adobe 5.0 users:
Shell "C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe P:\archives\" & JobNo & "\Plan Rack\Archived Plans\PDF_Files\" & PDFName, vbNormalFocus

for adobe 4.0 users:
Shell "C:\Program Files\Adobe\Acrobat 4.0\Reader\AcroRd32.exe P:\archives\" & JobNo & "\Plan Rack\Archived Plans\PDF_Files\" & PDFName, vbNormalFocus

the adobe 5.0 users this works fine but for the adoe 4.0 users I get errors that say the document does not exist.

My variables JobNo and PDFName are correct and exist

I know I can just updgrade everyone to adobe 5.0 but some of my users are not allowing me to upgrade them.

Does anyone know what I could be doing wrong.

Thanks for your help

[Aaron Young]

Use the ShellExecute() API and it will launch any file with it's associated application, i.e.

In a Standard Module:

Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Public Sub OpenFile(ByVal sFile As String)
  ShellExecute 0, "OPEN", sFile, "", "", 1
End Sub

Example Usage:

Option Explicit
 
Private Sub Command1_Click()
  OpenFile "C:\SomeFile.pdf"
End Sub

[Nhunter]

thanks that worked great