标题:如何打开硬盘上的某个文件?
只看楼主
随波逐流
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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-63782-1-1.html




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

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