VB中获取exe自身所在路径的几种方法

VB中获取exe自身所在路径的几种方法。
1，利用App.Path

Private Sub Command1_Click()
Dim strpath1 As String
If Right(App.Path, 1) = “\” Then
strpath1 = App.Path & App.EXEName & “.exe”
Else
strpath1 = App.Path & “\” & App.EXEName & “.exe”
End If
MsgBox strpath1
End Sub

或者

Private Sub Command3_Click()
Dim strpath As String
strpath = IIf(Right(App.Path, 1) = “\”, App.Path, App.Path & “\”) & App.EXEName & “.exe”
MsgBox strpath
End Sub

2，利用API

Private Declare Function GetModuleFileName Lib “kernel32” Alias “GetModuleFileNameA” (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Sub Command2_Click()
Dim strpath As String
strpath = Space(256)
GetModuleFileName 0, strpath, 256
MsgBox strpath
End Sub