Ejercicio
Invertir archivo binario V2
Objetivo
Crear un programa para "invertir" un archivo, utilizando un "FileStream": crear un archivo con el mismo nombre que termine en ".inv" y que contenga los mismos bytes que el archivo original pero en orden inverso (el primer byte será el último, el segundo será el penúltimo, y así sucesivamente, hasta el último byte del archivo original, que debe aparecer en la primera posición del archivo resultante).
Debe entregar solo el archivo ".cs", que debe contener un comentario con su nombre
Código
Imports System
Imports System.IO
Class InverterFileStream
Private Shared Sub Main(ByVal args As String())
Dim fileName As String
Console.Write("Enter the name of file to convert: ")
fileName = Console.ReadLine()
Dim myFileReader As FileStream = File.OpenRead(fileName)
Dim size As Long = myFileReader.Length
Dim data As Byte() = New Byte(size - 1) {}
myFileReader.Read(data, 0, CInt(size))
myFileReader.Close()
Dim myFileWriter As FileStream = File.Create(fileName & ".inv")
For i As Long = size - 1 To 0
myFileWriter.WriteByte(data(i))
Next
myFileWriter.Close()
End Sub
End Class