Convertir cualquier archivo a mayúsculas Curso de Programación Visual Basic

Lección:

Administración de Archivos


Ejercicio:

Convertir cualquier archivo a mayúsculas 7


Objetivo:

Escribe un programa para leer un archivo (de cualquier tipo) y volcar su contenido a otro archivo, cambiando las letras minúsculas a mayúsculas.

Debe entregar solo el archivo ".cs", con su nombre en un comentario.


Código:

Imports System
Imports System.IO
Public Class binaryFileToUpper
    Public Shared Sub Main()
        Dim inFile As BinaryReader = New BinaryReader(File.Open("example.exe", FileMode.Open))
        Dim outFile As BinaryWriter = New BinaryWriter(File.Open("example.exe.upper", FileMode.Create))
        Dim filesize As Long = inFile.BaseStream.Length

        For i As Long = 0 To filesize - 1
            Dim b As Byte = inFile.ReadByte()
            If (b >= Convert.ToByte("a"c)) AndAlso (b <= Convert.ToByte("z"c)) Then b -= 32
            outFile.Write(b)
        Next

        inFile.Close()
        outFile.Close()
    End Sub
End Class