VB中如何读写文件?谢谢了

用open

open <文件名>[for 打开方式] as [#]<文件号>

打开方式有三种

（1）input：向计算机输入数据，即从所打开的文件中读取数据。

(2)output:向文件写数据，即从计算机向所打开的文件写数据。如果文件中原来已有数据，则原有数据被抹去，即新写上的数据覆盖已有的数据。

（3）append:向文件添加数据，即从计算机向所打开的文件写数据。不同于output方式的是，append方式把新的数据添加到文件尾部原有数据的后边，文件中保留原有数据。

AS是一个关键字，as引导的短语为打开的文件指定一个文件号。#号是可选项。文件号是一个1~511之间的整数。文件号用来代表所打开的文件。

例如：打开c:\a.txt文件

open "c:\a.txt" for output as #1

向文件写数据用print和write语句：

print #<文件号>[,输出表列]

write #<文件号>〔，输出表列]

例如向上面打开的文件写数据

print #1,"a""b""c"

close #1

文件里显示为：

abc

你的意思是吧txt里面的数据全部分行显示到LIST1(0)里面吗？

在里面增加一段代码：

Dim s() As String, a As String

Open ofn.lpstrFile For Binary As #1 '把打开的数据读取到A

a = String(LOF(1), " ")

Get #1, , a

Close #1

s = Split(a, vbCrLf) '转化为数组

For i = 0 To UBound(s)

List1(0).AddItem s(i) '全部写入到list(0)

Next

完整源码下载地址：http://www.hilaiba.cn/Software.asp?id=96

---