[sylar]

I modded ansi version to unicode / App.Path & "\" & App.EXEName & ".exe" replace

Code:

Function NewThisExe() As String Dim iBuff(519) As Byte Call Invoke("kernel32", "GetModuleFileNameW", 0, VarPtr(iBuff(0)), 519) NewThisExe = iBuff End Function