GetAppFilename – Return the application’s file name and path

Private Declare Function GetModuleFileName Lib "kernel32" Alias _    "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, _    ByVal nSize As Long) As LongPrivate Declare Function GetModuleHandle Lib "kernel32" Alias _    "GetModuleHandleA" (ByVal lpModuleName As String) As Long' return the application's filename'' it is similar to App.Path+App.ExeName, but it also' works when the program is run on a remote workstation' (in that case App.Path sometimes fails)'' In interpreted mode it returns the VB5 or VB6 executable filenameFunction GetAppFilename() As String    Dim hModule As Long    Dim buffer As String * 256        ' get the handle of the running application    hModule = GetModuleHandle(App.EXEName)    ' get the filename corresponding to that handle    GetModuleFileName hModule, buffer, Len(buffer)    GetAppFilename = Left$(buffer, InStr(buffer & vbNullChar, vbNullChar) - 1)End Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


Recent Articles: