FastCopy
Dim mByte() As Byte Open "C:\Command.com" For Binary As #1 Open "C:\Backup.com" For Binary As #2 ReDim mByte(0 To LOF(1)) Get #1, , mByte() Put #2, , mByte() Close #1 Close #2 MsgBox "Done", vbInformation
Dim mByte() As Byte
Open "C:\Command.com" For Binary As #1
Open "C:\Backup.com" For Binary As #2
ReDim mByte(0 To LOF(1))
Get #1, , mByte()
Put #2, , mByte()
Close #1
Close #2
MsgBox "Done", vbInformation
( fastcopy.html )- by Paolo Puglisi
- Modifica del 17/12/2023