用了 As #1 的时候,如果你要打开的文件已经被打开,则你这句肯定要出错的,为了防止这个错误,常用一句代码来获得一个自由句柄
dim FileNum as long
FileNum =FreeFile
open ..... as #FileNum
......
还有,你的Text1.Text = Input(LOF(1), #1)这一句前,一定要判断是否到了文件尾
do while not eof(FileName)
.....
[[it] 本帖最后由 不说也罢 于 2008-10-24 18:44 编辑 [/it]]
===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================