读取txt文档再提一问！
有位大侠告诉洒家这样可以：
把文本文件内容读取TextBox：
on error goto errshow
Dim TempFile As Long
Dim LoadBytes() As Byte
TempFile=FreeFile
Open "d:\1212.txt" For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile
Text1.Text=StrConv(LoadBytes,vbUniCode)
errshow:
if err.number=9 then msgbox "没有内容！"
但是运行之后,如果没有发现"d:\1212.txt"，就自己新建了一个空白的txt文档，我是想读取一个txt文件里面的所有内容，但是没有这个文件的话可以goto ErrShow。不要新建它。
先行谢过，上一贴结得太快，自己都没试过。
问题点数：10、回复次数：4Top
1 楼Winters_lee（其实我真的叫迪米亚路）回复于 2005-06-20 16:55:42 得分 0
太冲动，找到了，把Open "d:\1212.txt" For Binary As #TempFile 中的Binary改成Input就可以了。进来接分吧。
Top
2 楼jxw111（喜笑颜开）回复于 2005-06-20 18:01:57 得分 4
接分啊Top
3 楼szjhxu（天野）回复于 2005-06-20 18:04:17 得分 3
我也接点.Top
4 楼eglic（圪圪) (理由永远是谎言，信仰永远是自慰）回复于 2005-06-20 18:07:54 得分 3
呵呵，接分Top
