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
以下说明属本文之一部分:　　转载请保持完整并注明：转自 金刀客[www.]