VB如何实现，EXE程序可以检测自身所在文件路径并返回路径值

Question

用VB编写一个EXE可以检测自身位置的软件（注是可执行文件EXE，exe文件运行后自己检测到自己位置，并且把自己的路径返回来存到变量里的源代码）
能弄明白的留下VB代码。就行了满意10分给你

Answer 1

Option Explicit
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Const max_path = 260
Private Const max_path1 = 261

Private Sub Command1_Click()

Dim sysdir As String
Dim chrlen As Long
Dim windir As String

' 获得system路径
sysdir = Space(max_path)
chrlen = GetSystemDirectory(sysdir, max_path)
If chrlen > max_path Then chrlen = GetSystemDirectory(sysdir, chrlen)
sysdir = Left(sysdir, chrlen)
' 获得windows路径
windir = Space(max_path)
chrlen = GetWindowsDirectory(windir, max_path)
If chrlen > max_path Then chrlen = GetWindowsDirectory(windir, chrlen)
windir = Left(windir, chrlen)

' 在窗体上显示system路径
Label1.Caption = "system的路径为： " & sysdir
' 在窗体上显示windows路径
Label2.Caption = "windows的路径为： " & windir
End Sub

Answer 2

dim tmp_path as string '声明变量
tmp_path = app.path & "\" & "你程序的名字.exe"
msgbox "你的程序路径在" & tmp_path本回答被网友采纳

Answer 3

可惜我学的是三菱的,我记得是要用计数器,把触发的信号一一用传送指令传送到各个数据寄存器里,
然后就看里面的数字,来进行判定当前需要进行监控的元件处于什么状态了,但有一个缺点就是要我们
自己去换成二进制的数字才能清晰地看到.
(不同的产品,同样的效果,需要的条件也不尽相同)

Answer 4

用app.path返回程序自身路径。

Answer 5

msgbox "我现在在"app.path & "\" & "里面!"