vb读文件快速.docVIP

VB6 读取二进制文件并显示(到VB6 读取二进制文件并显示(到)2008年06月06日 星期五 05:47Public Function ????? ReadBinFile(ByVal BinFilePath As String) As String????? On Error GoTo ErrorSet???????????????????????????????? ????????? ????????? If Dir(BinFilePath, vbDirectory) = Then ????????????? MsgBox 文件不存在！????????????? Exit Function????????? End If????????? ????????? ????????? Dim BinFileNo As Integer????????? ????????? BinFileNo = FreeFile???????????????? FreeFile 返回一个 Integer，代表下一个可供 ????? Open ????????? ????????????? ????????? Open BinFilePath For Binary As #BinFileNo????????? FileLen = LOF(BinFileNo)??