Strange Error

[CHAMPGARY]

Hi,

I burnt my application on CD with necessary sound and image files. Which is not running from CD ROM, but if the same application, I copy down to my Hard Disk , it runs perfectly,
While running from CD ROM it gives me run time error "path not found" for images, though the error specified images are present on right path, and I have use app.path correctly....

I am just fade up ...
Please help me ASAP

Regards

Gary

[RealisticGraphics]

Did you make sure and include a backslash ("\") after app.path?
Something like this:

MyPath = App.Path & "\Img\Img1.bmp"

[The Hobo]

Originally posted by RealisticGraphics
Did you make sure and include a backslash ("\") after app.path?

It wouldn't matter since it works on his computer.

[Mc Brain]

If you run this code from a CD (let's say the D: drive)

App.Path & "\Img\Img1.bmp"

you will get "D:\\Img\Img1.bmp"

[Mc Brain]

So, you should use something like:

Public Function AppPath () As String
   AppPath = App.Path & Iif(Right(App.Path, 1) = "\", "", "\")
End Function

Usage:

AppPath & "Img\Img1.bmp"

[The Hobo]

Originally posted by Mc Brain
If you run this code from a CD (let's say the D: drive)

App.Path & "\Img\Img1.bmp"

you will get "D:\\Img\Img1.bmp"

Why does it do it like that with a CD Drive but not a fixed drive?

[Mc Brain]

What do you mean? It does the same... save your project in the root of your harddrive and you'll see it's exactly the same.

[The Hobo]

Private Sub Form_Load()
  MsgBox App.Path
End Sub

Gives me "C:\Program Files\Microsoft Visual Studio\VB98"

I saved the project too, even compiled it and ran it. That's what I got.

[The Hobo]

Wait, root of my hard dive. Yeah, it gives "C:\"

but if it's every any folder it doesn't give "\"

I see what you mean now. Okay

[RealisticGraphics]

HOBO: Good point. I missed the fact that it was working on his computer.

Mc Brain: Interesting. I didn't realize it would do that on the root drive. Anyway, to get around the problem I always use the following function... Similar to yours but works with any directory I pass.

Public Function CheckDir(ByVal Expression As String, Optional ByVal RemoveDir As Boolean = False) As String
If Len(Expression) <> 0 Then
    If RemoveDir = False Then
        CheckDir = IIf(Right(Expression, 1) = "\", Expression, Expression & "\")
    Else
        CheckDir = IIf(Right(Expression, 1) = "\", Left(Expression, Len(Expression) - 1), Expression)
    End If
End If
End Function