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