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