VBScript读写二进制文件

大佬教程收集整理的这篇文章主要介绍了VBScript读写二进制文件，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

Function ReadBinary(FileName)
  Dim Buf(),I
  With CreateObject("ADODB.Stream")
    .Mode = 3: .Type = 1: .open: .LoadFromFile Filename
    ReDim Buf(.Size - 1)
    For I = 0 To .Size - 1: Buf(I) = AscB(.Read(1)): Next
    .Close
  End With
  ReadBinary = Buf
End Function

Sub WriteBinary(Filename,Buf)
  Dim I,aBuf,Size,bStream
  Size = UBound(Buf): ReDim aBuf(Size \ 2)
  For I = 0 To Size - 1 Step 2
      aBuf(I \ 2) = ChrW(Buf(I + 1) * 256 + Buf(I))
  Next
  If I = Size Then aBuf(I \ 2) = ChrW(Buf(I))
  aBuf=Join(aBuf,"")
  Set bStream = CreateObject("ADODB.Stream")
  bStream.Type = 1: bStream.Open
  With CreateObject("ADODB.Stream")
    .Type = 2 : .open: .WriteText aBuf
    .Position = 2: .CopyTo bStream: .Close
  End With
  bStream.SaveToFile Filename,2: bStream.Close
  Set bStream = Nothing
End Sub 

大佬总结

以上是大佬教程为你收集整理的VBScript读写二进制文件全部内容，希望文章能够帮你解决VBScript读写二进制文件所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。