2013年6月26日

用VBS读写二进制文件

摘要： 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 = BufEnd FunctionSub WriteBinary(FileName, Buf) Dim ... 阅读全文

posted @ 2013-06-26 13:29 圣光 阅读(1250) 评论(0) 推荐(0)

导航