关于二进制文件读取的问题,急,在线等待!!

guohongchen 2004-02-19 09:45:25
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后一".",也没有东西弹出来选择
...全文
79 14 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧