|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
开发语言
→
『 VB6论坛 』
→ VB+WINDOWS7 专业版 DIR 和 Open App.Path & "\1.txt" For Output As #1 都
我的收件箱(0)
欢迎加入我们,一同切磋技术
用户名:
密 码:
共有
830
人关注过本帖
标题:
VB+WINDOWS7 专业版 DIR 和 Open App.Path & "\1.txt" For Output As #1 都 ...
只看楼主
加入收藏
yiyaozjk
等 级:
论坛游民
帖 子:231
专家分:30
注 册:2010-3-10
结帖率:
51.67%
楼主
收藏
已结贴
√
问题点数:20 回复次数:2
VB+WINDOWS7 专业版 DIR 和 Open App.Path & "\1.txt" For Output As #1 都
环境 VB+WINDOWS7 专业版
都不行用相对路径不行,用绝对路径也不行?是哪里的原因?
12.zip
(2.58 KB)
我把代码上传了,请高手帮忙测试修改,谢谢
搜索更多相关主题的帖子:
专业
2014-03-17 13:35
举报帖子
使用道具
赠送鲜花
owenlu1981
等 级:
贵宾
威 望:
13
帖 子:211
专家分:1130
注 册:2013-5-17
第
2
楼
收藏
得分:20
If Dir("c:\windows\system32\1.
text
") = "" Then '判断文件是否存在
MsgBox "Can not find excel file!" & vbCrLf & " !请找到这个文件", vbInformation + vbOKOnly, "Hint"
'MsgBox "Can not find this file3!" & vbCrLf & "请找到这个文件", vbInformation + vbOKOnly, "Hint"
Exit Sub
错误1:语句中的扩展名应该是txt
错误2: 原始文件保存时命名错误,将.txt去掉 (现在的文件名是1.txt.txt和2.txt.txt)
[
本帖最后由 owenlu1981 于 2014-3-17 14:27 编辑
]
2014-03-17 14:15
举报帖子
使用道具
赠送鲜花
yiyaozjk
等 级:
论坛游民
帖 子:231
专家分:30
注 册:2010-3-10
第
3
楼
收藏
得分:0
正解,谢谢!20分
2014-03-17 16:58
举报帖子
使用道具
赠送鲜花
3
1/1页
1
快速回复:
VB+WINDOWS7 专业版 DIR 和 Open App.Path & "\1.txt" For Output As ...
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.021206 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved