几个奇怪而又有意思的文件操作问题

Question

你把close #1换成close #funm试一下。

Answer 1

to： cngxylyh(olo) 
不好意思。我输错了，本来就是close #funm，不行的。
但是如果两次文件号分别给定为1和2，则不会出错，请高手帮忙解释一下，好吗

Answer 2

注意看这里（最后一行）：Open spath For binary As #fnum
 Seek #fnum, LOF(fnum) + 1 
 Put #fnum, , s2
Close #funm应为Close #fnum
在模块的前面写上Option Explicit
这样VB会检查变量有没有事先声明
可以防止出错

Answer 3

呵呵,不好意思，改正过后第一个问题已经解决了，谢谢！
但是第二个问题改了过后还是不行啊，如果用byte数组来读取是可以得到全部数据的的，为什么variant和string类型不能实现呢

Answer 4

那就别用它们把文本文件内容读取TextBox：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)把TextBox内容写入文本文件：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

Answer 5

谢谢zyl910(910：分儿，我来了！) 。我只是想作一下 测试数据分两次写入文件后读文件有没有影响。能解释一下为什么variant和string类型不能实现吗