如何在VB中读取文件-第2部分-VB6，二进制模式（Get）

这是一个非常简单的示例例程，它一次又一次地从磁盘读取文件。 这仅使用内置的VB语句。 稍后，我们将介绍FileSystemObject，它提供了更多功能，但以稍微复杂的代码为代价。

可以将此自包含的例程粘贴到代码模块中，然后从任何位置（包括即时窗口）进行调用。 它将期望您传递文件名（如果文件不在当前目录中，则包括路径），并将文件内容复制到立即窗口。 请注意，这还将尽可能避免干扰当时可能正在进行的任何其他处理。

额外的参数（与本系列中的先前示例相比）使您可以请求将文件内容转储为一个大字符串（适用于文本文件）或逐字节（适用于大多数其他文件类型）。

Public Sub DumpFile_V02(ByVal FileName As String, ByVal TreatAsText As Boolean)
  Dim FileNo As Long
  Dim FileSize As Long
  Dim Buffer As String
  Dim CharNo As Long, Char As String * 1 
  FileNo = FreeFile ' Get next available file number.
  Open FileName For Binary Access Read Shared As #FileNo
  FileSize = LOF(FileNo) ' Determine how large the file is (in bytes).
  Buffer = Space$(FileSize) ' Set our buffer (string) to that length. 
  ' The length of the string (Buffer) determines how many bytes are read...
  Get #FileNo, , Buffer ' Grab a chunk of data from the file.
  Close #FileNo 
  ' Display the results, either as one big chunk or byte-by-byte.
  If TreatAsText Then
    Debug.Print Buffer
  Else
    For CharNo = 1 To FileSize
      Char = Mid(Buffer, CharNo, 1)
      Debug.Print Format(CharNo, "#,###"); " = Decimal(" _
          ; Format(Asc(Char), "000"); ")  Hexadecimal(" _
          ; Hex$(Asc(Char)); ")  ["; Char; "]"
      DoEvents
    Next
    Beep ' Just let the user know we're finished.
  End If
End Sub

From: https://bytes.com/topic/visual-basic/insights/648664-how-read-file-vb-part-2-vb6-binary-mode-get