IvertFile

Public Sub reversefile(fromfile As String, tofile As String)
' Fromfile: il file da cui prendere i dati

' Tofile: il file in cui mettere i dati

' Nota: non funziona molto bene su stringhe

' in cui non sembra riconoscere nuove righe.

Dim mybyte() As Byte
Dim reversedbyte() As Byte
Dim reversebyte As Long
Open fromfile For Binary As #1
Open tofile For Binary As #2
ReDim mybyte(1 To LOF(1)) As Byte
ReDim reversedbyte(1 To LOF(1)) As Byte
Get #1, , mybyte
For reversebyte = UBound(mybyte) To 1 Step -1
reversedbyte(reversebyte) = mybyte(UBound(mybyte) - reversebyte + 1)
Next
Put #2, , reversedbyte
Close #2
Close #1
End Sub

Use
call reversefile("c:\fromfile.dat","c:\tofile.dat")