如何：在 Visual Basic 中读取二进制文件

项目
04/07/2023

My.Computer.FileSystem 对象提供用于读取二进制文件的 ReadAllBytes 方法。

读取二进制文件

使用 ReadAllBytes 方法可将文件的内容作为字节数组返回。此示例读取文件 C:/Documents and Settings/selfportrait.jpg。

Dim bytes = My.Computer.FileSystem.ReadAllBytes(
              "C:/Documents and Settings/selfportrait.jpg")
PictureBox1.Image = Image.FromStream(New IO.MemoryStream(bytes))

对于大型二进制文件，可以使用 Read 对象的 FileStream 方法从文件中一次只读取指定数量的内容。然后，可以限制每次读取操作将文件加载进内存的数量。以下代码示例将复制文件，并允许调用方指定每次读取操作将文件读入内存的数量。

' This method does not trap for exceptions. If an exception is 
' encountered opening the file to be copied or writing to the 
' destination location, then the exception will be thrown to 
' the requestor.
Public Sub CopyBinaryFile(ByVal path As String,
                          ByVal copyPath As String,
                          ByVal bufferSize As Integer,
                          ByVal overwrite As Boolean)

    Dim inputFile = IO.File.Open(path, IO.FileMode.Open)

    If overwrite AndAlso My.Computer.FileSystem.FileExists(copyPath) Then
        My.Computer.FileSystem.DeleteFile(copyPath)
    End If

    ' Adjust array length for VB array declaration.
    Dim bytes = New Byte(bufferSize - 1) {}

    While inputFile.Read(bytes, 0, bufferSize) > 0
        My.Computer.FileSystem.WriteAllBytes(copyPath, bytes, True)
    End While

    inputFile.Close()
End Sub

可靠编程

以下情况可能会导致异常：

路径由于以下原因之一而无效：它是零长度字符串；它仅包含空白；它包含无效字符；或者它是一个设备路径 (ArgumentException)。
路径无效，因为它是 Nothing (ArgumentNullException)。
该文件不存在 (FileNotFoundException)。
文件正由另一个进程使用，或者出现 I/O 错误 (IOException)。
路径超过了系统定义的最大长度 (PathTooLongException)。
路径中的文件名或目录名包含冒号 (:)，或格式无效 (NotSupportedException)。
内存不足，无法将字符串写入缓冲区 (OutOfMemoryException)。
该用户缺少查看该路径所必需的权限 (SecurityException)。

不要根据文件的名称来判断文件的内容。例如，文件 Form1.vb 可能不是 Visual Basic 源文件。

在应用程序中使用输入的数据之前，需验证所有的输入内容。文件的内容可能不是预期内容，并且用来读取该文件的方法可能失败。

如何：在 Visual Basic 中读取二进制文件

读取二进制文件

可靠编程

另请参阅

反馈

其他资源