English
资源说明：B = 10240 '这里可以改速度,数字越大,速度就越快,如果太快的话也有可能会卡主电脑的
i = FileLen(AppName) Mod B '算出速度的零头
N = FileLen(AppName)
Open AppName For Binary As #1 '打开原文件
i2 = FreeFile '给新文件键个文件号
Open AppSizeName For Binary As #i2 '打开新文件
ReDim BB(i) '规定BB只能容纳i这么多字节(BB i 速度的零头
Get #1, 1, BB '从原文件的(弟1字节至BB空间)读取到BB中(BB速度的零头
Put #i2, 1, BB '把BB写到新文件的(弟1字节至BB空间)(BB速度的零头
Do '用循环的方式来把文件一段一段的写入新文件中
ReDim BB(B) '规定BB只能容纳(速度B)这么多字节
Get #1, i, BB '从原文件的(弟i字节至BB空间)读取到BB中
Put #i2, i, BB '把BB写到新文件后面
本源码包内暂不包含可直接显示的源代码文件，请下载源码包。
