Question

怎样用vb获取exe自身的文件名

我想编写个程序，这个程序运行时能获取自身的程序名，比如把它重命名为"1.exe"它就能在窗体上显示"1.exe"，同样把它重命名为其它的名称，它也能在窗体上显示他的名称。请问如何实现？

Answer 1

Dim str As String
str = IIf(Len(App.Path) > 3, App.Path & "\" & App.EXEName & ".exe", App.Path & App.EXEName & ".exe") str 就是EXE文件的路径了。搞这么复杂是因为当EXE文件在根目录下的时候，app.path 是带有“\”，不在根目录下的时候没有。

Answer 2

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