在窗体的 窗体名_Load()即窗体加载
定义变量 aaa as string
aaa=App.Path
显示aaa即可
aaa程序放在窗体内则表示窗体路径,放在模块内则表示模块的路径
文件储存打开时,文件路径 strfile=App.Path+“文件名”+“文件类型.txt”
先建一个窗体并保存,然后在代码窗口输入如下代码:
Private Sub Form_Load()
Dim Path As String
Path = App.Path
Me.Caption = Path
End Sub
运行程序,窗体名就变成程序的路径了。
app.path就是用来获取程序本身的路径
msgbox App.Path 就可以了
解释
msgbox 显示
app 自身
path 绝对路径
就一条语句:
MsgBox App.Path
其中App就是程序自身的意思,是一个对象,它也有一些方法,比如Path就是表示程序的路径
app.path & "\" & app.exename