• Home
 · 
• VB function enhancement
 · 
• Find FULL App Path + App Extension

Find FULL App Path + App Extension

This simple 10 lines of code (including 1 API call) will return the FULL application path INCLUDING the application extension. Very easy to use. Tired of using App.path & "\" & app.exename & ".exe" when you dont know for sure that your extention will be .exe? This will return it all. Votes are welcome

Inputs
Just call FullAppName instead of putting in App.path & "\" & app.exename & ".exe"

Assumes
Simply place the API Code and the function in your project. Use FullAppName every time you refer to your self in your code.

Returns
A string containing the full application path and extention

Side Effects
No Side Affects

Rate Find FULL App Path + App Extension

• 1
• 2
• 3
• 4
• 5

(9(9 Vote))

Private Declare Function GetModuleFileName Lib "kernel32" _
 Alias "GetModuleFileNameA" (ByVal hModule As Long, _
 ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Function FullAppName() As String
 Dim modName As String * 256
 Dim i As Long
 i = GetModuleFileName(App.hInstance, modName, Len(modName))
 FullAppName = Left$(modName, i)
End Function