60.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

利用 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 等于 "文件名称" 的完整路径名称