VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 利用 App.Path 读取「应用程序所在之目录」
发表评论(0)作者:, 平台:, 阅读:22075, 日期:2000-03-12
利用 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 等于 "文件名称" 的完整路径名称