Question

VB 获取当前程序路径

我想获取当前程序的所在路径，之前是用app.path来获取的，但后来换到另一台没有开发环境的电脑上就出错了。在VB自带的帮助中写的是app.path只能在开发环境中使用。
麻烦高手帮帮忙，解决一下，最好是不要用app.path，谢谢。

Answer 1

不会啊，app.path在MSDN中的解释如下：
——————————————————————————————————————
返回或设置当前路径。在设计时是不可用的。对于 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) 是不同的。
——————————————————————————————————————
如果您排除其他原因而确定是APP.PATH造成的错误的话，把您的那一段代码给我看看，我帮您看看是不是哪儿出错了。不过还是有极大的可能性是对方的电脑中系统有缺陷，而不是app.path的问题。

追问

您好，这是我用的代码：
Dim RTPPath As String
Dim DLLPath As String
RTPPath = App.Path& "RGSS

只要是在其他没有VB环境的电脑运行就会报错，但程序能启动，不知为何，麻烦您了。

追答

在排除“没有VB环境的电脑”系统没有出错的前提下：

请问 rtppath = app.path & "rgss 这串代码是原代码吗？它本身语法就是错误的。
请再详细一些以便我帮您再分析一遍，我建议您最好将您的程序给再另外一台电脑试运行并且是否成功，有90%的可能性是另外那台电脑的问题哦，您可以私信找我我进一步帮您分析一下。