vb中如何获得自身的绝对路径

Question

生成exe后，比如说我放到了 C：abc 文件夹内。我运行后label上会自动显示“c:\abc”。这样的代码应该如何写，谢谢了。要简节的，我会加分的

Answer 1

App.Path 就是自身的绝对路径

Private Sub Form_Load()
label.Caption = App.Path
End Sub

Answer 2

Private Sub Form_Load()
Label1.Caption = App.Path & App.EXEName & ".exe"
End Sub

Answer 3

我只会VBS代码
Set objShell = CreateObject("Wscript.Shell")
MsgBox objShell.CurrentDirectory

VB参考
Visual Basic（声明）
Public Shared Property CurrentDirectory As String
Visual Basic（用法）
Dim value As String

value = Environment.CurrentDirectory

Environment.CurrentDirectory = value

参考资料：http://msdn.microsoft.com/zh-cn/library/system.environment.currentdirectory(VS.80).aspx