VB 中App.Path的使用

　　程序开启文件时，若没有指定文件的目录，则所开启的将是「目前目录」的文件，但目前目录是经常改变的，如果指定目录，则将来安装程序时，被开启的文件必须安装于指定目录中，比较没有弹性。

　　解决以上问题的方法利用以下方法开启文件：

　　Open App.Path + "\" + "文件名称" For ┅

　　并且将被开启的文件与可执行文件放在同一目录即可，因为 App.Path 所代表的就是应用程序所在的目录。不过使用App.Path有一件事情要特别注意，当App.Path 位于根目录时，则App.Path最右边的字符为"\"，例如"c:\"，但如果App.Path不在根目录，则App.Path 最右边的字符不为"\"，例如"d:\kj\app1"，因此欲求取应用程序所在目录某一文件的完整路径名称，应该使用以下方法：

　　Dim fullpath As String
　　If Right(App.Path,1) = "\"Then             ' 若 App.Path 为根目录
　　fullpath = App.Path + "文件名称"
　　Else
　　	fullpath = App.Path + "\" + "文件名称"' fullpath 等于 "文件名称" 的完整路径名称
　　End If

　　当某一程序下有多个相同的文件时，比如"e:\ksxt"目录下有多个要找个相同的文件，这时候系统就会按照一定的顺序找到第一个文件，并当做目前需要使用的文件，所以，这种情况下，最好使该目录下只有这一个文件。

原文地址：https://www.jb51.cc/vb/259572.html