关于二进制文件读取的问题,急,在线等待!!
Private Sub Command1_Click()
Dim strFileName As String
Dim strTemp As String
Dim intCount As Integer
Dim aryFile() As String
Dim filesystemobject As Object
Dim textstream As Object
Set filesystemobject = CreateObject("Scripting.FileSystemObject")
Set textstream = filesystemobject.openTextFile(strFileName)
Do While Not textstream.AtEndOfStream <> True
strTemp = textstream.readline
intCount = intCount + 1
Loop
textstream.Close
End Sub
为什么运行程序时弹出错误“实时错误 自动化错误”等,是不是需要引用什么的啊?
而且在写程序时,即使在textstream后一".",也没有东西弹出来选择