不要指定Len其实这样就可以: Open cmbFile.Text For Binary As FreeFileNo
我让你看MSND是因为你的第二个问题在MSDN中有很详细的说明,不看算了。
好了,但问题也来了!! 我以如下方式打开: Open cmbFile.Text For Input As FreeFileNo Do While Not EOF(FreeFileNo) Line Input #FreeFileNo, FileStr FileInfo = FileInfo & FileStr & vbCrLf Loop 可解决上述两个问题,但因为要循环,所以反应很慢怎么办???
还可用如下方法打开: Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(cmbFile.Text, ForReading, TristateFalse) FileInfo = f.ReadAll 但速度还是太慢。。
打开文本文件就只能是随机模式。
叫你老大给解决问题,你却要我去看MSDN......
不要指定Len其实这样就可以:
Open cmbFile.Text For Binary As FreeFileNo
我以如下方式打开:
Open cmbFile.Text For Input As FreeFileNo
Do While Not EOF(FreeFileNo)
Line Input #FreeFileNo, FileStr
FileInfo = FileInfo & FileStr & vbCrLf
Loop
可解决上述两个问题,但因为要循环,所以反应很慢怎么办???
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(cmbFile.Text, ForReading, TristateFalse)
FileInfo = f.ReadAll
但速度还是太慢。。