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). Se il file e` locked non c'e` sistema che tenga, altrimenti puoi copiarlo da vb in maniera velocissima (se sta in memoria) con un sistema tipo questo: |