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

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



控件深度投影和阴影效果的实现-Delphi资料 控制Delphi的窗口显示位置 控制Form不能放大、缩小、移动、关闭-Delphi资料 控制系统菜单-Delphi资料 利用Delphi实现支持窗体的自定义函数 轻轻松松在DELPHI3.0中实现三态按钮 全部窗体可使用鼠标移动-Delphi资料 让按钮连续工作--兼谈Delphi元件开发 让彩色光标出现在Delphi程序中 让彩色光标出现在程序中-Delphi资料 在Windows桌面的任务栏上有一个凹陷的区域,其中显示着系统时钟以及一些图标,这个长方形的区域便 如何使用Show方法来显示一个模态窗口-Delphi资料 如何旋转字体-Delphi资料 如何隐藏和显示Windows的任务条-Delphi资料 如何在DELPHI界面上运行可执行文件 设计Form时的快捷键-Delphi资料 生成非矩形窗口-Delphi资料 时隐时现的鼠标-Delphi资料 无标题窗口的移动-Delphi资料 应用程序敏感键的实现-Delphi资料 用Delphi 4.0 设 计 新 型 界 面 用Delphi 实 现 自定 义 颜 色 对 话 框 及 其 构 件 用Delphi 实现自定义颜色对话框及其构件 用Delphi4实现风Word97风格的工具栏 用Delphi 开 发windows 屏 幕 保 护 预 览 程 序 用Delphi设置墙纸 用DELPHI实现无边界窗体的移动 用Delphi实现自定义颜色对话框及其构件 用DEPHI 3.0实现动画ABOUT窗口-Delphi资料 用鼠标拖动无标题窗口-Delphi资料 在Delphi编程中创建一个启动闪现窗口 如何将OLE中的EXCEL设为指定的大小,高手救命 linux下如何安装jre? 关于打开文件的问题 我的程序怎么一放到其它机器 上就执行不了了 OLE保存时能不能单击实现??? 小问题,进者有分 一个关于sendmessage的问题。 救命啊,FTP的客户端程序 linux下如何安装jre? 怎么使验证失效? 如何实现字符串扫描? 我从来没用过C#,也不会,不过这个关于其运行的问题我确想先知道! 一个老问题! 今天我给一个男人骚扰了一回 有个问题,朋友们请进.sos 一个非常简单的问题 TListItem的Data属性(void)如何使用呀,如何读出它的值呢? bmp to ico 今天看到一个怪现象~! 软件过来人为小弟指点~~ bmp to ico 如何打开控制面板 高分求教,我爱上了兄弟的女朋友,我该怎么办?(100分) 求助:在首次适应算法和最佳适应算法中,分区分配和分区回收的c语言实现。 同在一个城市,呼吸着同样的空气,都为这老板的几块大洋打拼,蓦然回首才知道已经几年了,也该为自已的未来思考一下了。。。 请问有关两个宏 bmp to ico 硬盘无法访问的问题,急!!!估计是被黑了 ISA2000中的问题,特急,在线求助 处理窗口关闭时的动作? 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 请问不通过Image控件如何用直接用DC来显示一个BMP?? 请问现在数据库开发技术有哪些?大致情况? 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 请问汇编用什么编译器最好啊? 有什么可以下的电影啊,提供网址,谢谢 下午闷啊:( 怎样让字体自动适应分辨率 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) RowCount属性怎么用 VCL派生类的属性发布问题,请高手指教 中国能否成为世界第一? 有关cisco路由器上copy子集的疑问 怎样将msn的email用outlook express收到本地! 请告知msn的 pop smtp服务器 如何动态画出函数的图象? 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 有创意的T恤~~ Transaction not connected! 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 高手求救 甲、乙两车同时从A、B两地相向而行,甲车每小时行60千米,乙车每小时行48千米,两车在距中点12千米处相遇,这是乙距A滴还有多远? 什么是关工委提到的八项制度? 英语,心理劳动,品德,体育,美术的卷纸. 纷至沓来的意思是什么 八项规定指的是哪八项 帮忙找《游褒禅山记中“尽吾志 与 深思慎取 两观点的联系 什么是橡皮红 槐米什么意思 深思慎取什么意思? 女性头发用红色的橡皮胶绑着代表着什么?她才24岁 如果按照农村的习俗 是代表她已经结婚了吗? 槐花飘香的意思 请问“深思慎取”是什么意思?请用浅显易懂的语言概括, 《求知若饥,虚心若愚.》的演讲稿只要能讲出大概的内容就好,在不过越详细越好! 情人节送4支枚槐花代表什么意思 请问《游褒禅山记》中“此学者不可以不深思而慎取之也”中“可以”的意思? 求知若饥,虚心若愚 这句话? 【导数】曲线y=2x-x^3在点(-1,-1)处切线的倾角 车水马龙什么意思 《河中石兽》中“如其言\”的如是什么意思? 请用“千峰竞秀,高空俯视,万壑藏云,郁郁葱葱,心惊胆战\”造句50字左右 神秘的海啸 科科 第四段文字运用了哪些说明方法 3/7:5/21 4/15:4/25 1:4/5 "求知若饥 虚心若愚"的意思是什么拜托了各位 神秘的海啸19.本文说明的主要内容是什么?21.第四段文字主要运用了哪些说明方法 23.据报道,在这次印度洋海啸灾难中,泰国一个渔村的长者,在海水迅速退去时,想起“海水退得快,再来就更 1大于1/2.1+1/2+1/3大于1.1+1/2+1/3+1/4+1/5+1/6+1/7大于3/2.1+1/2+1/3+.+1/15大于2能得出什么结论.并证明.最好用数学归纳法. 心往神驰、万壑藏云、浮想联翩、若即若离、登峰造极连成一句话. 槐花像什么东西? 多米诺骨牌效应的意思,全点! 马克思的幸福观的相关理论在《马克思恩格斯全集》第几卷啊?过两天就要交论文二稿啦,就差这个观点没改动了,是关于马克思主义的幸福的相关理论在第几卷,我找不到 车水马龙的意思是?😱 多米诺骨牌的来源? 马克思主义的幸福观的基本内容是什么? 生物中如何分清有丝减一和减二不用背就能记住的 车水马龙怎么解释 谁知道马克思主义幸福观核心是什么? 车水马龙什么意思 车水马龙的故事? 先用中文翻译出来,再排序 关于槐花的花时槐花有哪些种类?各种类几月开花? 用车水马龙组句 台风是否会影响上海交通 “尽吾志也而不能至者,可以无悔矣”下面两句是什么? 万壑藏云的读音 浙教版第九册品德与社会教案课程是:父母-我特别的朋友 车水马龙,求相近的成语 “藏在云外的青春”这句话是什么意思? “C反应蛋白”是什么意思? 什么成语,跟车有关的,不是车水马龙. 22日日全食 武汉最佳观测点武汉最佳观测点在哪呢?需要些什么观测器吗?哪里有卖的?谢谢了 ps中自由变化里的透视是什么意思,达到什么作用? 尽吾志矣,尚不能至者,可以无悔矣,其孰能饥之乎? 2009年 拨款50亿元针对农民的农用三轮车及农用慢性机动车的一次性置换新型农用车及微型车的补助, 中央8项规定是什么 “尽吾志可以无悔”与“没吾志而悔”的典型事例如题, “纷至沓来”是什么意思? 以岗位责任制为主的八项制度是什么? 地震波属于机械波,还是电磁波? 纷至沓来是什么意思 老干部政治待遇八项制度是什么 全部 全部 分析称中国核潜艇高调亮相或是向日本展亲戚行凶 纽约华人母子五人被害德媒:窃听丑闻得教训 要像中俄一样变浙江温岭医院否认特警“抢尸”:伤心还杭州家政阿姨变身女土豪专骗单身男五旬女子拼凑出骗婚团队 8人相继被骗记者探访平壤地铁 装饰奢华乘客行色匆西班牙就美国涉嫌在西从事监听活动召见朝鲜向欧洲派足球留学生 为成为体育强华媒:揭秘核潜艇部队新海军战略呼之欲杭州规定60方以上新建住宅最少配一个杭州酝酿再度延长地铁末班时间 延长至浙江省委通报省级班子专题民主生活会情杭州彩虹快速路有望11月开通贵阳拆迁猫鼠游戏:白天拆晚上搭 与城中国反贪关键词:健全机制让群众敢举报贪官忏悔录:本来只想捞几万 接判决难美女童为父亲录庆生视频爆红网络【组图贝克汉姆超速再度载长子出车祸【组图】白宫说奥巴马对国家安全局有信心监听门让世界彻底放弃侥幸再谈监管打车软件:别只为挽救旧利益获刑14年 真功夫原总裁股权将拍卖拿到预付金喀国足启程旧衣零抛弃中信医药“一姐”泄密被停职调查鼻腔过滤器是否有效安全仍待证实微软小冰转投多家科技公司并驾齐驱北京蓝皮书建议开凿京津陆海运河 称可环保组织:内地八成城市重大项目不开听炼油厂爆炸起火王老吉再告加多宝 索赔两千万龚六堂:改革税制,将税权收归全国人大美国访华团参观眉州东坡总部4号线站点“起名”世界杯参赛队狗肉节旅客逃票将记入“诚信系统”立交桥雨水泵站“带压排水”防倒灌小皇帝镇压一切质疑中国粉丝如何左右日本娱乐大选微言大义
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘