Justin.Lu----Position

  IT博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::
  4 随笔 :: 6 文章 :: 3 评论 :: 0 Trackbacks
用app.path取得遠程目錄時結果:例如 \\gcecn\copy\
取得的本機目錄時, 例如 f:\backup
注意:最後是否有"\"
posted on 2005-09-20 20:03 Justin 阅读(1907) 评论(2)  编辑 收藏 引用

评论

# re: VB中根據app.path取得路徑 2005-10-13 12:12 清风化语
学vb  回复  更多评论
  

# re: VB中根據app.path取得路徑 2007-10-03 16:36 jx
程 序 开 启 文 件 时 , 若 没 有 指 定 文 件 的 目 录 , 则 所 开 启的
将 是 「 目 前 目 录 」 的 文 件 , 但 目 前 目 录 是 经 常 改 变 的,
如 果 指 定 目 录 , 则 将 来 安 装 程 序 时 , 被 开 启 的 文 件 必须
安 装 于 指 定 目 录 中 , 比 较 没 有 弹 性 。
解 决 以 上 问 题 的 方 法 利 用 以 下 方 法 开 启 文 件 :
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 等于 "文件名称" 的完整路径名称
  回复  更多评论
  

只有注册用户登录后才能发表评论。