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

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后一".",也没有东西弹出来选择
...全文
30 点赞 收藏 14
写回复
14 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-02-19 09:45
社区公告
暂无公告