VB中怎样可以取得当前程序运行的路径?

[acumen_li]

VB中怎样可以取得当前程序运行的路径,或怎样把路径设为Exe文件路径?

[cd_dragon]

app.path

[lie78]

取得当前的路径用对象 APP.path 就行啦.

[samilly98]

APP.path

[baqiao1211]

app.path

[EpopeeLei]

不过App.Path在某些时候也有不足之处，最好用下面的代码：
Debug.Print IIf(Right$(App.Path, 1) = "\", Left$(App.Path, Len(App.Path) - 1), App.Path)

[shepherd228]

app.path

[redwrite]

If Right$(App.Path, 1) = "\" Then
CurrentPath = App.Path
Else
CurrentPath = App.Path + "\"
End If

[用户 昵称]

app.path

[Laney]

app.path

[zyl910]

Path 属性


返回或设置当前路径。在设计时是不可用的。对于 App 对象，在运行时是只读的。

语法

object.Path [= pathname]

Path 属性的语法包含下面部分：

部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
pathname 一个用来计算路径名的字符串表达式。


说明

Path 属性的值是一个指示路径的字符串，例如 C:\Ob 或 C:\Windows\System。对于 DirListBox 或 FileListBox 控件，在运行时当控件被创建时，其缺省值是当前路径。对于 App 对象，当从开发环境运行该应用程序时 Path 指定 .VBP 工程文件的路径，或者当把应用程序当作一个可执行文件运行时 Path 指定 .exe 文件。

当建立一个应用程序的文件浏览器和操作能力时使用这个属性。设置 Path 属性对控件产生的影响与 MS-DOS 的 chdir 命令相似－相关的路径可以带有或不带有驱动器的描述。只有指定带冒号 (:) 的驱动器才能在那个驱动器上选择当前目录。

使用下面的语法，Path 属性也可以设置限定的网络路径而不需要驱动器连接：

\\servername\sharename\path

前面的语法将 Drive 属性改变成了 0 长度的字符串 ("")。

Path 值的改变将产生以下影响：

对于一个 DirListBox 控件，将产生一个 Change 事件。


对于一个 FileListBox 控件，将产生一个 PathChange 事件.
注意 对于 DirListBox，Path 的返回值与只返回选定内容的 List(ListIndex) 是不同的。

[sgx]

app.path

[ccbl]

同上，UP