Or, alternately:

MyPath  = App.Path & IIf(Right(App.Path, 1) <> "\", "\", "") & App.EXEName

Regards,
-Toby


>Subject: RE: get path
>From: Steve Wake <Steve.Wake@S...>
>Date: Mon, 25 Jun 2001 10:55:36 +0100
>X-Message-Number: 11
>
>Philip,
>
>Try App.Path & "\" App.EXEName
>
>Steve