乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 103|回复: 7

调用文件路径问题

[复制链接]

3

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
18
发表于 2010-9-12 22:33:00 | 显示全部楼层 |阅读模式
编了一组程序,需要调用安装文件夹下一级文件夹中的文件,请问如何写这个代码?
例如:安装路径是C:\RICH2010,我需要调用的文件是C:\RICH2010\BLOCK\SJ.TXT.
原先的语句是OPEN "C:\RICH2010\BLOCK\SJ.TXT" FOR OUTPUT AS #1
问题是程序发布后安装的路径不是固定的,也许是安装在C:\PROGRAMS FILES\RICH2010,
那样的话,,上面的语句就错了,该如何改呢?如何用“$installdir$”?请大侠们指教一二。
回复

使用道具 举报

0

主题

58

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2010-9-13 15:27:00 | 显示全部楼层
app.path
回复

使用道具 举报

3

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
18
发表于 2010-9-13 19:37:00 | 显示全部楼层
能不能详细说一说,或者就用上面的例子举例说明,谢谢
回复

使用道具 举报

0

主题

58

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2010-9-14 06:40:00 | 显示全部楼层
App 对象
App 对象是通过关键字 App 访问的全局对象。它指定如下信息:应用程序的标题、版本信息、可执行文件和帮助文件的路径及名称以及是否运行前一个应用程序的示例。
语法
App

App 对象的 Path 属性
当从开发环境运行该应用程序时 Path 指定 .VBP 工程文件的路径;当把应用程序当作一个可执行文件运行时 Path 指定 .exe 文件。
语法
pathname = App.Path

需要注意的是,当安装路径为分区根目录(比如D盘)时,App.Path返回的路径后面有"\",比如"D:\";当安装路径不是根目录时,App.Path返回的路径后面没有"\",比如"C:\PROGRAMS FILES\RICH2010".所以编程时,在得到可执行文件的路径后,应首先检查字符串的最后一个字符是否"\",如不是则添加,然后再在后面继续添加要操作的文件名称或子目录的路径等.
回复

使用道具 举报

23

主题

561

帖子

13

银币

中流砥柱

Rank: 25

铜币
653
发表于 2010-9-14 14:48:00 | 显示全部楼层
OPEN replace(app.path & "\BLOCK\SJ.TXT","\\","\") FOR OUTPUT AS #1
回复

使用道具 举报

3

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
18
发表于 2010-9-14 19:24:00 | 显示全部楼层
非常感谢楼上两位的回答,我很受启发。
回复

使用道具 举报

0

主题

3

帖子

3

银币

初来乍到

Rank: 1

铜币
3
发表于 2010-9-14 19:30:00 | 显示全部楼层
不太懂,俺刚学VBA
回复

使用道具 举报

3

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
18
发表于 2010-10-8 20:07:00 | 显示全部楼层
该问题已解决,其实只要判断本身程序的路径就行了,找的太辛苦了,不过也值。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-1 08:55 , Processed in 0.343415 second(s), 68 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表