用VBS分割二进制文件

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

Option Explicit

Function IIF(judgement,a,b)
  If judgement Then
    IIF = a
  Else
    IIF = b
  End If
End Function

Sub WriteBinaryFile(FileName,SaveMode)
  With CreateObject("ADODB.Stream")
    .Type = 1 : .Open: .Write Buf
    .SaveToFile FileName,SaveMode: .Close
  End With
End Sub

Sub 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 Sub

Dim objFSO,Buf
Set objFSO = CreateObject("Scripting.FileSystemObject")
SplitFile "C:test.rar","C:test",512
Set objFSO = Nothing

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!