Better App.Path Function

15Nov, 2011

Better App.Path Function

App.Path returns a string with the "" character at the end if the path is the root drive (e.g., "C:") but without that character if it isn&qt;t (e.g., "C:Program Files"). Most of the time we need the "" at the end, so this function saves you the inconvenience of adding it every time.
Public Function AppPath() As String


    Dim sAns As String
    sAns = App.Path
    If Right(App.Path, 1)  &#34;&#34; Then sAns = sAns & &#34;&#34;
    AppPath = sAns

End Function

MyNich

MyNich

Better App.Path Function