807
社区成员
发帖
与我相关
我的任务
分享
谢谢了
Dim bytBlock1(255) As Byte, bytBlock2(255) As Byte
Open App.Path & "\test.wav" For Binary As #1
Open App.Path & "\new.wav" For Binary As #2
Get #1, , bytBlock1
Get #1, , bytBlock2
Put #2, , bytBlock1
Put #2, , bytBlock2
Do Until EOF(1)
Get #1, , bytBlock1
Get #1, , bytBlock2
Put #2, , bytBlock2
Put #2, , bytBlock1
Loop
Close #2
Close #1