Author  

Language  

Operating Systems  

Public Sub CheckPath(MyPath$) ' Adds the \ to the Application Path when required
    MyPath$ = App.Path
    If Not Right(MyPath$, 1) = "\" Then
        MyPath$ = MyPath$ & "\"
    End If
End Sub

'Usage:
Private Sub Command1_Click()
    Dim MyPath As String
    Dim FileName As String

    FileName = App.EXEName
    Call CheckPath(MyPath$)
    MsgBox "The location of: " & FileName & " is " & MyPath$ & vbCrLf & " Full Path: " & MyPath$ & FileName
End Sub