说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB利用 App.Path 读取「应用程序所在之目录」

HTML文档下载 WORD文档下载 PDF文档下载
VB利用 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 等于 "文件名称" 的完整路径名称



备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘