请教我的代码有没有错误!!

cqs76 2003-05-09 05:57:03

.......

Function readBinFromFile(ByVal bfilename As String) As Variant
Dim fl As Long
Dim FileNum As Long
Dim binbyte() As Byte
Dim binfilestr As String

On Error GoTo errHandler
FileNum = FreeFile
Open bfilename For Binary As #FileNum '读两进制文件
fl = FileLen(bfilename)
ReDim binbyte(fl)
Get #FileNum, , binbyte
Close #FileNum
readBinFromFile = binbyte
Exit Function

errHandler:
Exit Function
End Function
...全文
5 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
naojin 2003-07-01
语法没有错,算法只有你知道
回复
pipipig 2003-05-09
最好
fl = FileLen(bfilename)
放在
Open bfilename For Binary As #FileNum
的上面

Dim binbyte() As Byte最好是全局变量
或者函数不要返回Variant
回复
w18ily 2003-05-09
错误情况下无返回~~
回复
zqho 2003-05-09
应该没有错误吧!
回复
cqs76 2003-05-09
这两天我实在是糊涂了!
请教前辈!
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-09 05:57
社区公告
暂无公告