App.Path

程 序 开 启 文 件 时 ， 若 没 有 指 定 文 件 的 目 录 ， 则 所 开 启的

将 是 「 目 前 目 录 」 的 文 件 ， 但 目 前 目 录 是 经 常 改 变 的，

如 果 指 定 目 录 ， 则 将 来 安 装 程 序 时 ， 被 开 启 的 文 件 必须

安 装 于 指 定 目 录 中 ， 比 较 没 有 弹 性 。

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

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

并 且 将 被 开 启 的 文 件 与 可 执 行 文 件 放 在 同 一 目 录 即 可 ，

因为 App.Path 所 代 表 的 就 是 应 用 程 序 所 在 的 目 录 。

不 过 使 用 App.Path 有 一 件 事 情 要 特 别 注 意 ， 当 App.Path 位于

根 目 录 时 ， 则 App.Path 最 右 边 的 字 符 为 ""， 例 如 "c:"， 但

如 果 App.Path 不 在 根 目 录 ， 则 App.Path 最 右边 的 字 符 不 为 ""，

例 如 "d:kjapp1"， 因 此欲 求 取 应 用 程 序 所 在 目 录 某 一 文 件

的 完 整 路 径 名 称 ， 应该 使 用 以 下 方 法 ：

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