Binaryworld - GetAppFilename - Return the application's file name and path ... [ VB -> Windows ]

Private Declare Function GetModuleFileName Lib "kernel32" Alias _
  "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, _
  ByVal nSize As Long) As Long
Private 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 filename

Function 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