Opening a PDF document

[bjm3819]

I'm currently using System.Diagnostics.Process.Start("..\Documents\sam ple.pdf") to open the document. It works great but in my program when I open up a document using the OpenDialog control it will break something.
After opening up a file using the OpenDialog control I try to open up the PDF but then the file cannot be found. I think current path changes... and is no longer in the directory I need it to be in.

How do I get VB to tell me its current directory or even tell me the path of the install program so I can tell it where to go to find the document?

The big issue is that I deploy this program to many users so they may install it in different areas so I cannot use the same file location such as C:\ProgramFiles\PDF_Docs\myPdf.pdf as the path.

I have a folder for documents in side my vb project that holds the document.

[lotus18]

How do I get VB to tell me its current directory or even tell me the path of the install program so I can tell it where to go to find the document?

I guess Application.StartupPath will solve your problem

[sashi]

Dim exePath as String = ""

exePath = System.Reflection.Assembly.GetExecutingAssembly.Lo cation

WebBrowser1.Navigate (exePath & "\" & "pdf_filename")

[tlhintoq]

I think you guys are getting sidetracked with this.

It works great but in my program when I open up a document using the OpenDialog control it will break something.

It shouldn't matter what your exe path is if you are getting the PDF path from the OpenFileDialog. It returns an absolute path to the file, not relative to your application.

Are you in some way modifying the path after you get it from the dialog? Perhaps you should post the relevant code.

[sashi]

Hi there,

Try the below attached code segment. It works fine for me. Hope it does for you too :)

Private fdlg As OpenFileDialog = New OpenFileDialog()
Private fdlg.Title = "PDF Document"
Private fdlg.InitialDirectory = "c:\"
Private fdlg.Filter = "PDF File|*.pdf"
Private fdlg.FilterIndex = 2
Private fdlg.RestoreDirectory = True
If fdlg.ShowDialog() = DialogResult.OK Then
textBox1.Text = fdlg.FileName
End If

[sashi]

 
Private fdlg As OpenFileDialog = New OpenFileDialog()
 fdlg.Title = "PDF Document"
 fdlg.InitialDirectory = "c:\"
 fdlg.Filter = "PDF File|*.pdf"
 fdlg.FilterIndex = 2
 fdlg.RestoreDirectory = True
 
If fdlg.ShowDialog() = DialogResult.OK Then
textBox1.Text = fdlg.FileName
End If