QuickCopyFile

Private Sub Command1_Click()
Dim Buff() As Byte
Dim FileName As String
Dim FFile As Integer
Dim i As Integer
Dim BuffLen As Long
FileName = "C:\WINDOWS\Desktop\Balena.txt"
FFile = FreeFile()
BuffLen = FileLen(FileName)
Open FileName For Binary Access Read As #FFile
ReDim Buff(1 To BuffLen)
Get #1, , Buff()
Close #FFile
'Riprova

For i = 1 To BuffLen
Debug.Print Chr$(Buff(i));
Next
End Sub

'In questo esempio non copio il file, ma ne mostro il contenuto.

'Per copiarlo basta usare Put #ffile,,Buff()

'dopo aver aperto il file destinazione col nuovo nome.

'Per fare le cose a modo dovresti copiare a blocchi non piu`

'grandi di una certa dimensione per non passare all'utilizzo del

'file di swap. La velocita` in questo esempio non e` penalizzata

'da VB come potrebbe esserlo se copi byte per byte

'(allora si perche` e` il ciclo di vb che rallenta).