Hi all,

Scope:
I have a userform where I would like to add some buttons wich open certain
adobe PDF files. Furthermore, this project is to be burned on a CD so it can
be distributed.
My problem are the drive letters.. (diffrent systems, diffrent drive
letters..)

I have some code, but this is not working properly.. the errormessage is
that it cannot sustain(?) for a read only property.

________________________________________________
Private Sub CommandButton19_Click()
'open pdf file
Dim filelocation As String
ThisWorkbook.Path = filelocation
Sheets("UserSettings").Range("H3").Value = filelocation ' to view the
filelocation
'Shell "GetCurrentPath()V(S)F24-32-45.pdf"
End Sub
____________________________________

Does anyone has a suggestion how to solve this?
Thank you all!


--
Arjan Bregman
the Netherlands

*****
the knowledge is always there, maybe hidden, but it is there..
*****

Arjan,
Make it ...

filelocation = ThisWorkbook.Path
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"Arjan" <(E-Mail Removed)>
wrote in message
Hi all,
Scope:
I have a userform where I would like to add some buttons wich open certain
adobe PDF files. Furthermore, this project is to be burned on a CD so it can
be distributed.
My problem are the drive letters.. (diffrent systems, diffrent drive
letters..)

I have some code, but this is not working properly.. the errormessage is
that it cannot sustain(?) for a read only property.
____________________________________
Private Sub CommandButton19_Click()
'open pdf file
Dim filelocation As String
ThisWorkbook.Path = filelocation
Sheets("UserSettings").Range("H3").Value = filelocation ' to view the
filelocation
'Shell "GetCurrentPath()V(S)F24-32-45.pdf"
End Sub
____________________________________

Does anyone has a suggestion how to solve this?
Thank you all!
--
Arjan Bregman
the Netherlands

*****
the knowledge is always there, maybe hidden, but it is there..
*****

Jim,

thnx.. that works!
For the next step, how can I open the files which are in that path?

Arjan





--
Arjan Bregman

*****
the knowledge is always there, maybe hidden, but it is there..
*****


"Jim Cone" wrote:

> Arjan,
> Make it ...
>
> filelocation = ThisWorkbook.Path
> --
> Jim Cone
> San Francisco, USA
> http://www.realezsites.com/bus/primitivesoftware
>
>
> "Arjan" <(E-Mail Removed)>
> wrote in message
> Hi all,
> Scope:
> I have a userform where I would like to add some buttons wich open certain
> adobe PDF files. Furthermore, this project is to be burned on a CD so it can
> be distributed.
> My problem are the drive letters.. (diffrent systems, diffrent drive
> letters..)
>
> I have some code, but this is not working properly.. the errormessage is
> that it cannot sustain(?) for a read only property.
> ____________________________________
> Private Sub CommandButton19_Click()
> 'open pdf file
> Dim filelocation As String
> ThisWorkbook.Path = filelocation
> Sheets("UserSettings").Range("H3").Value = filelocation ' to view the
> filelocation
> 'Shell "GetCurrentPath()V(S)F24-32-45.pdf"
> End Sub
> ____________________________________
>
> Does anyone has a suggestion how to solve this?
> Thank you all!
> --
> Arjan Bregman
> the Netherlands
>
> *****
> the knowledge is always there, maybe hidden, but it is there..
> *****
>

Code stolen from Rob Bruce...
The API determines the application to use to open the file.
--
Jim Cone
San Francisco, USA
http://www.officeletter.com/blink/specialsort.html


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

Sub OpenFileInDefaultApp(FullName As String)
ShellExecute 0, vbNullString, FullName, 0&, 0&, 1
End Sub

Sub test()
OpenFileInDefaultApp "C:\Documents and Settings\user\My Documents\Statistical flaws in Excel.pdf"
End Sub
'--------------




"Arjan" <(E-Mail Removed)>
wrote in message
Jim,
thnx.. that works!
For the next step, how can I open the files which are in that path?
Arjan
--
Arjan Bregman



"Jim Cone" wrote:
> Arjan,
> Make it ...
>
> filelocation = ThisWorkbook.Path
> --
> Jim Cone
> San Francisco, USA
> http://www.realezsites.com/bus/primitivesoftware

>
>
> "Arjan" <(E-Mail Removed)>
> wrote in message
> Hi all,
> Scope:
> I have a userform where I would like to add some buttons wich open certain
> adobe PDF files. Furthermore, this project is to be burned on a CD so it can
> be distributed.
> My problem are the drive letters.. (diffrent systems, diffrent drive
> letters..)
>
> I have some code, but this is not working properly.. the errormessage is
> that it cannot sustain(?) for a read only property.
> ____________________________________
> Private Sub CommandButton19_Click()
> 'open pdf file
> Dim filelocation As String
> ThisWorkbook.Path = filelocation
> Sheets("UserSettings").Range("H3").Value = filelocation ' to view the
> filelocation
> 'Shell "GetCurrentPath()V(S)F24-32-45.pdf"
> End Sub
> ____________________________________
>
> Does anyone has a suggestion how to solve this?
> Thank you all!
> --
> Arjan Bregman
> the Netherlands
>
> *****
> the knowledge is always there, maybe hidden, but it is there..
> *****
>

Hi Jim,

What I don't understand is that there still is a hard coded drive letter in
the code from Rob Bruce..

Is it not easier to solve with something like below?
Shell "start.exe filelocation\filename.pdf"

Arjan

--
Arjan Bregman

*****
the knowledge is always there, maybe hidden, but it is there..
*****


"Jim Cone" wrote:

> Code stolen from Rob Bruce...
> The API determines the application to use to open the file.
> --
> Jim Cone
> San Francisco, USA
> http://www.officeletter.com/blink/specialsort.html
>
>
> 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
>
> Sub OpenFileInDefaultApp(FullName As String)
> ShellExecute 0, vbNullString, FullName, 0&, 0&, 1
> End Sub
>
> Sub test()
> OpenFileInDefaultApp "C:\Documents and Settings\user\My Documents\Statistical flaws in Excel.pdf"
> End Sub
> '--------------
>
>
>
>
> "Arjan" <(E-Mail Removed)>
> wrote in message
> Jim,
> thnx.. that works!
> For the next step, how can I open the files which are in that path?
> Arjan
> --
> Arjan Bregman
>
>
>
> "Jim Cone" wrote:
> > Arjan,
> > Make it ...
> >
> > filelocation = ThisWorkbook.Path
> > --
> > Jim Cone
> > San Francisco, USA
> > http://www.realezsites.com/bus/primitivesoftware
>
> >
> >
> > "Arjan" <(E-Mail Removed)>
> > wrote in message
> > Hi all,
> > Scope:
> > I have a userform where I would like to add some buttons wich open certain
> > adobe PDF files. Furthermore, this project is to be burned on a CD so it can
> > be distributed.
> > My problem are the drive letters.. (diffrent systems, diffrent drive
> > letters..)
> >
> > I have some code, but this is not working properly.. the errormessage is
> > that it cannot sustain(?) for a read only property.
> > ____________________________________
> > Private Sub CommandButton19_Click()
> > 'open pdf file
> > Dim filelocation As String
> > ThisWorkbook.Path = filelocation
> > Sheets("UserSettings").Range("H3").Value = filelocation ' to view the
> > filelocation
> > 'Shell "GetCurrentPath()V(S)F24-32-45.pdf"
> > End Sub
> > ____________________________________
> >
> > Does anyone has a suggestion how to solve this?
> > Thank you all!
> > --
> > Arjan Bregman
> > the Netherlands
> >
> > *****
> > the knowledge is always there, maybe hidden, but it is there..
> > *****
> >
>