Crystal Rpt Load in VB w/o hardcoded path

[wendas]

Hi,
I downloaded a code example that has this code
[red]
' Load the report
rptExpensiveProducts.Load("..\TenMostExpensiveProducts.rpt")
[/red]
Looks easy and makes sense. This works (but this code is on local drive)

My code is on a server.. But this code if it is saying look in your local folder I would think would work where ever I dropped it.

But I created a program.. It works if I hard code in the full Path, but not if I change the path to "..\reportname.rpt".

Is there something else I need to do to get this to work? Or is it due to the code being on the server. (I really don't want all code to fail if we choose to move code to a different server, so I don't want to be so hardcoded with the path")

Thanks

 

[wendas]

Well it is Not the difference of server vs local.. I just moved the sample code that it works with to my server. It still works.

 

[wendas]

never figured out why the example code worked with a path of "..\" If someone can tell me the missing link let me know.

I did find a work around.
[red]
'Figure out the pathname for the current folder (this is startuppath minus the \bin\debug)
strpath = Application.StartupPath
intlen = InStr(strpath, "\bin")
strpath = Mid(strpath, 1, intlen)
' Load the report
cryrpt.Load(strpath + "rFirstReport.rpt")
[/red]