App.Path and networks?

[TomJones]

Hello,

I was hoping that a application which reads files using App.Path (i.e. files are stored relative to .exe) would work over a network but apparently not.

Apparently it works OK on the server (as expected) but when a client machine runs the .exe (and it's just running the .exe on the server whcih has been shared), it cannot access the files. I cant check this myself but presumably something is going wrong with App.Path when used over a network? But the .exe being run on the client is located on the server so cant see why App.Path would change!

Am I overlooking something or is it a case of something being wrong with App.Path on a network?

Thanks

[Sheppe]

Originally posted by TomJones
Hello,

I was hoping that a application which reads files using App.Path (i.e. files are stored relative to .exe) would work over a network but apparently not.

Apparently it works OK on the server (as expected) but when a client machine runs the .exe (and it's just running the .exe on the server whcih has been shared), it cannot access the files. I cant check this myself but presumably something is going wrong with App.Path when used over a network? But the .exe being run on the client is located on the server so cant see why App.Path would change!

Am I overlooking something or is it a case of something being wrong with App.Path on a network?

Thanks

Can you give us an example of what it returns? My guess is the UNC, in which case you'll need to ensure that the proper permissions are on the network share.

[Mc Brain]

App.Path will return you the trailing slash if it's working in a shared folder.

[Mc Brain]

You can use this function to be sure that no matter if it's a shared folder, a root folder (of a harddrive) or whatever. They will all retrieve the path without the trailing slash:

Option Explicit
 
Private Sub Form_Load()
    MsgBox AppPath
End Sub
 
Public Function AppPath() As String
    AppPath = App.Path
    If Right$(App.Path, 1) = "\" Then
        AppPath = Left$(AppPath, Len(AppPath) - 1)
    End If
End Function

[Sheppe]

Originally posted by Mc Brain
App.Path will return you the trailing slash if it's working in a shared folder.

Ah hah, good point! Another option is to use the following:

MsgBox IIF(Right(App.Path, 1) = "\", Left(App.Path, Len(App.Path) -1), App.Path)

[Mc Brain]

Originally posted by Sheppe
Ah hah, good point! Another option is to use the following:

MsgBox IIF(Right(App.Path, 1) = "\", Left(App.Path, Len(App.Path) -1), App.Path)

It is!!.... If you're going to use it like only once in the whole project. Even if you copy & paste that... is a pain in the a... there to look for it to copy & paste, or even re-writting the whole line multiple times. Best approach.... create a function (like I did), and add the code you like best.

[Sheppe]

Originally posted by Mc Brain
It is!!.... If you're going to use it like only once in the whole project. Even if you copy & paste that... is a pain in the a... there to look for it to copy & paste, or even re-writting the whole line multiple times. Best approach.... create a function (like I did), and add the code you like best.

Agreed. There's no performance gain in doing it either way, so a function would make more sense if for no other reason than being easier to look at.