| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 720 人关注过本帖
标题:如何打开硬盘上的某个文件?
只看楼主 加入收藏
随波逐流
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-5-9
收藏
 问题点数:0 回复次数:5 
如何打开硬盘上的某个文件?
小弟我是新手,请教高手,打开硬盘上的某个文件的语句该怎么写?不胜感激!!!!
搜索更多相关主题的帖子: 硬盘 文件 语句 
2006-05-13 10:22
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 
Open 文件名 For Input As #1
之后要读文件用

Dim a As String, b As String
Do While Not EOF(1)
Line Input #1, b
a = a & b
Loop

Close #1

'此时 a 存储了所打开文件的内容

[此贴子已经被作者于2006-5-13 10:35:43编辑过]

2006-05-13 10:35
随波逐流
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-5-9
收藏
得分:0 

编码如下:
Private Sub Command1_Click()
filename = "f:\111.txt"
Open filename For Input As #1
Dim a As String, b As String
Do While Not EOF(1)
Line Input #1, b
a = a & b
Loop

Close #1

End Sub
提示错误:
实时错误:‘53’
文件未找到
我不知道是哪里出错啦?

2006-05-13 10:47
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 
说明
f:\111.txt这个文件不存在

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-05-13 12:18
随波逐流
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-5-9
收藏
得分:0 

我新建的一个TXT文件,为什么会说文件不存在呢?

2006-05-13 15:31
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 
哎?不是你自己说的吗?错误提示是“文件未找到”

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-05-13 17:18
快速回复:如何打开硬盘上的某个文件?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019024 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved