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

(资料图片)

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

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

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

5、　　Dim fullpath As String

6、　　If Right(App.Path, 1) = "\" Then " 若 App.Path 为根目录

7、　　fullpath = App.Path + "文件名称"

8、　　Else

9、　　fullpath = App.Path + "\" + "文件名称"

10、　　End If

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

12、　　来源:SEO基地

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

本文到此讲解完毕了，希望对大家有帮助。

标签：