21 | 08 | 2017

Get Application Path

The function below return the path of the application.

'-----------------------------------------------------------------------------
Function GetAppPath() As String
'-----------------------------------------------------------------------------

'****************************************
'*** Code from VisibleVisual.com ********
'****************************************


    Dim strAppPath As String
    
    strAppPath = App.Path
    
    'If no \ at the end put it at the end
    If Right$(strAppPath, 1) <> "\" Then
    
        strAppPath = strAppPath & "\"
    End If
    
    GetAppPath = strAppPath

End Function
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2330619
Latest Articles