vb读出二进制文件，合并两个文件

========================================= Dim FileMe() As Byte, File1() As Byte, File2() As Byte Dim Ii As Integer, Ss As String '读入程序自身 Open App.Path & "\" & App.EXEName & ".exe" For Binary As #11 ReDim FileMe(FileLen(App.Path & "\" & App.EXEName & ".exe") - 1) Get #11, , FileMe Close #11 '读入第一个可执行文件 Open Text1(1).Text For Binary As #1 ReDim File1(FileLen(Text1(1).Text) - 1) Get #1, , File1 '============================================== '下面的这个循环我不知道干嘛的，望解~ For Ii = 1 To 200 Ss = File1(Ii - 1) Xor 99 File1(Ii - 1) = Ss Next '============================================== Close #1 '读入第二个可执行文件 Open Text1(2).Text For Binary As #2 ReDim File2(FileLen(Text1(2).Text) - 1) Get #2, , File2 '=====================同上===================== For Ii = 1 To 200 Ss = File2(Ii - 1) Xor 99 File2(Ii - 1) = Ss Next '============================================== Close #2 '将程序自身+第一个exe+第二个exe合并到新文件 Open Text2.Text For Binary As #3 Put #3, , FileMe Put #3, , File1 Put #3, , File2 Put #3, , PSW & StrMC Put #3, , App.EXEName & "|||" & FileLen(App.Path & "\" & App.EXEName & ".exe") & "" & _ Mid(Text1(1).Text, InStrRev(Text1(1).Text, "\") + 1) & "|||" & FileLen(Text1(1).Text) & "" & _ Mid(Text1(2).Text, InStrRev(Text1(2).Text, "\") + 1) & "|||" & FileLen(Text1(2).Text) & "" Close #3 MsgBox "捆绑成功: " & Text2.Text, vbInformation ===================================================== 此篇本人也忘了从哪里贴的，一只也没有看，先扔这边了。 创作挑战赛新人创作奖励来咯，坚持创作打卡瓜分现金大奖

总结

以上是生活随笔为你收集整理的vb读出二进制文件，合并两个文件的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。