Make an EXE get its own EXE name?

[Junshin]

Ok, sounds simple.. use app.EXEname

Trouble is that doesn't work if the user changes the exe file from what it was originaly. For instance, I compile an exe called blabla.exe, now thats fixed as app.EXEname, so if a user changes the exe name to albalb.exe - app.EXEname will still see it as blabla.exe

Anyhows, I need my program to work with the exe when its run. The first thing the program needs to know is what its own name is.. can someone suggest how to do this?

Many Thanks...

[chrisf]

This returns the path + filename of the App. containing this function:

Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String ) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long ,ByVal lpFileName As String ,ByVal nSize As Long ) As Long

Function ExeName() As String
Dim Name As String
Dim hWnd As Long

Name = Space$(255)
hWnd = GetModuleHandle(vbNullString)
GetModuleFileName hWnd, Name, 255
ExeName = Name

End Function

[Junshin]

Thank you so much for your help, that worked perfect. Very much appreciated.