用VBS分割二进制文件

概述用VBS分割二进制文件

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

Option ExplicitFunction IIF(judgement,a,b)  If judgement Then    IIF = a  Else    IIF = b  End IfEnd FunctionSub WriteBinaryfile(filename,SaveMode)  With CreateObject("ADODB.Stream")    .Type = 1 : .Open: .Write Buf    .Savetofile filename,SaveMode: .Close  End WithEnd SubSub Splitfile(Sourcefile,Destinationfile,ChunkSize)  Dim BufferSize  BufferSize = 1024  'ChunkSize 为 BufferSize 的倍数  With CreateObject("ADODB.Stream")    .Mode = 3: .Type = 1: .Open: .LoadFromfile Sourcefile    Dim lfileSize    lfileSize = .Size    Dim i    i = 1    do while lfileSize >= ChunkSize * BufferSize       Buf = .Read(ChunkSize * BufferSize)       WriteBinaryfile Destinationfile & "." & CStr(i),IIf(objFSO.fileExists(Destinationfile & "." & CStr(i)),2,1)       lfileSize = lfileSize - ChunkSize * BufferSize       i = i + 1    Loop    If lfileSize > 0 Then       Buf = .Read(lfileSize)       WriteBinaryfile Destinationfile & "." & CStr(i),1)    End If    .Close  End With  MsgBox "Finished!"End SubDim objFSO,BufSet objFSO = CreateObject("Scripting.fileSystemObject")Splitfile "C:\test.rar","C:\test",512Set objFSO = nothing

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

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

总结

以上是内存溢出为你收集整理的用VBS分割二进制文件全部内容，希望文章能够帮你解决用VBS分割二进制文件所遇到的程序开发问题。

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