$(AppPath) Error.

[thomasellis]

At the moment I am using this code:

cmdGo.Picture = LoadPicture("$(AppPath)\Go.ico")

And I have the Go.ico file in the same directory. How come I am still getting a cannot find error.

This is probably a really basic question, but any help would be much appreciated.

[John_Andrikopoylos]

The corect is

cmdGo.Picture = LoadPicture(App.Path & "\Go.ico")

where app.path is the path of your executable program

[thomasellis]

Thanks heaps.

but what occurs if you're app is istalled at c:\ ???

better you use a other routine: (past it into a module)


Public Function AppPath () as String
dim strBuffer as string
if right(app.path,1) = "\" then
apppath = mid(app.path,1,len(app.path) - 1)
else
apppath = app.path
end if
end function

Edited by taLON on 02-28-2000 at 06:35 AM

[John_Andrikopoylos]

Yes you have right.

I forgot it because sometimes the mind goes faster.....

[thomasellis]

...