 |
Get和Put语句也可以读写多个字节，可以把每次读写的内容放在一个字节变量数组中，以提高程序速度。例如：
Dim DSX() As Byte '为字节数组，用来存储读写内容
Dim ReadFileNo, WriteFileNo As Integer
'读写文件号
Const Unit = 100000 '读写块的大小
Open SourceFileName For Binary Access Read As 1
WriteFileNo = FreeFile
Open TargetFileName For Binary Access Write As WriteFileNo
ReDim DSX(Unit) As Byte '设置存储字节数组的大小
Get #ReadFileNo, 100, DSX()
Put #WriteFileNo, 1, DSX()
Close WriteFileNo, ReadFileNo
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, 磁盘、文件和目录, disk, file, fat, directory, folder。
|
VB有块状读取二进制文件的方法
