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 + "\\" + "文件名称"

End If

'' fullpath 等于 "文件名称" 的完整路径名称

来源:SEO基地

当某一程序下有多个相同的文件时，比如"e:\\ksxt"目录下有多个要找个相同的文件，这时候系统就会按照一定的顺序找到第一个文件，并当做目前需要使用的文件，所以，这种情况下，最好使该目录下只有这一个文件。正是如此，使用未来教育软件做计算机二级考题的同学们做到类似的问题，总会报错，说输入超出文件尾，那是找错了文件，只要把文件的完整的目录打上，就不会报错了。