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
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
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
Original Comments (3)
Recovered from Wayback Machine