一个关于文件的问题

Question

Dim byt As Byte
Open "c:\command.com" For Binary As #1
Open "c:\command2.com" For Binary As #2
For i = 1 To FileLen("c:\command.com")
Get #1, , byt
Put #2, , byt
Next i
End Sub
'非常精确

Answer 1

一次性读取：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile一次性写入：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=LoadBytes '■■■■■■■■■■■■■■■■■■■■■■■■TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile