【VB】VB获得自身所在完整路径包括后缀名

一[不支持非EXE后缀,非exe后缀的话，改一下".exe"即可,支持中文路径]：

不带"":
MsgBox Replace(App.Path + "\" + App.EXEName + ".exe", "\\", "\") 
 
带"":
"""" + Replace(App.Path + "\" + App.EXEName + ".exe", "\\", "\") + """"

二[支持任何后缀名,支持中文路径]：

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long '获取一个已装载模板的完整路径名称
Private Function FullAppName() As String '获取自身完整路径包括后缀名
On Error Resume Next
Dim ModName As String * 256
FullAppName = Replace(Left$(ModName, GetModuleFileName(App.hInstance, ModName, Len(ModName))), vbNullChar, "") '获取完整路径并替换掉空字符[中文会产生空字符]
End Function

Private Sub Form_Load()
MsgBox FullAppName
End Sub