vbscript - 在VBscript中读写二进制文件

Question

我之前使用 ADODB.Stream 来读取和写入二进制文件，这里是链接

How to concatenate binary file using ADODB.stream in VBscript

它工作正常，唯一的问题是 ADODB.stream 在 Windows 2003 服务器上被禁用，

有没有另一种方法可以以二进制模式读取 3 个文件并将它们连接起来或将它们存储在 VBscript 中的一个文件中

谢谢你
J.P

Answer 1

基于 Luc125 和 Alberto 的回答，这里有 2 个经过重新设计和简化的函数:

读取功能

Function readBinary(strPath)

    Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
    Dim oFile: Set oFile = oFSO.GetFile(strPath)

    If IsNull(oFile) Then MsgBox("File not found: " & strPath) : Exit Function

    With oFile.OpenAsTextStream()
        readBinary = .Read(oFile.Size)
        .Close
    End With

End Function

写功能

Function writeBinary(strBinary, strPath)

    Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")

    ' below lines pupose: checks that write access is possible!
    Dim oTxtStream

    On Error Resume Next
    Set oTxtStream = oFSO.createTextFile(strPath)

    If Err.number <> 0 Then MsgBox(Err.message) : Exit Function
    On Error GoTo 0

    Set oTxtStream = Nothing
    ' end check of write access

    With oFSO.createTextFile(strPath)
        .Write(strBinary)
        .Close
    End With

End Function