AppPath
Public Function AppPath() As String If Right(App.Path,1) <> "\" Then AppPath = App.Path & "\" Else AppPath = App.Path End If End Function
Public Function AppPath() As String
If Right(App.Path,1) <> "\" Then
AppPath = App.Path & "\"
Else AppPath = App.Path
End If
End Function
(apppath.html)- by Paolo Puglisi - Modifica del 25/3/2019