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) "" Then sAns = sAns & ""
AppPath = sAns

End Function

Tags: