文件名称：超速复制文件.rar
文件大小：456KB
文件格式：RAR
更新时间：2022-09-19 15:11:00
超速复制文件 多路复制文件 复制例子 文件读写
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写到新文件后面
【文件预览】：
Form1.frm
工程1.vbp
Form1.frx
MSSCCPRJ.SCC
MSCOMCTL.OCX
工程1.vbw
复制文件.exe