VB6 读取二进制文件并显示(到现在为止发现的读取速度最快的方法)_

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)
         
          ReDim FileByte(FileLen) As Byte
         
          Get #BinFileNo, , FileByte()
          Close #BinFileNo
         
         
          Dim FileStr() As String
          ReDim FileStr(FileLen) As String
         
         
          For i = 0 To FileLen - 1
              If Len(Hex(FileByte(i))) = 1 Then
                  FileStr(i) = "0" & Hex(FileByte(i))
              Else
                  FileStr(i) = Hex(FileByte(i))
              End If
          Next i
         
         
          ReadBinFile = Join(FileStr)
         
         
          Exit Function
         
      ErrorSet:
          MsgBox "文件" & BinFilePath & "读取失败！" & Err.Description & Chr(10) &
      Chr(13)
         
          ReDim FileByte(FileLen) As Byte
         
          Get #BinFileNo, , FileByte()
          Close #BinFileNo
         
         
          Dim FileStr() As String
          ReDim FileStr(FileLen) As String
         
         
          For i = 0 To FileLen - 1
              If Len(Hex(FileByte(i))) = 1 Then
                  FileStr(i) = "0" & Hex(FileByte(i))
              Else
                  FileStr(i) = Hex(FileByte(i))
              End If
          Next i
         
         
          ReadBinFile = StrConv(filestr, vbUnicode)
         
         
          Exit Function
         
      ErrorSet:
          MsgBox "文件" & BinFilePath & "读取失败！" & Err.Description & Chr(10) &
      Chr(13)
         
      End Function