Copiador de archivos Curso de Programación Visual Basic

Lección:

Administración de Archivos


Ejercicio:

Copiador de archivos 8


Objetivo:

Cree un programa para copiar un archivo de origen en un archivo de destino. Debe utilizar FileStream y un tamaño de bloque de 512 Kb. Un ejemplo de uso podría ser:

archivo mycopy.txt e:file2.txt

Debe comportarse correctamente si el archivo de origen no existe y debe advertir (pero no sobrescribirlo) si el archivo de destino existe


Código:

Imports System
Imports System.IO
Public Class FileCopier
    Public Shared Sub Main()
        Const BUFFER_SIZE As Integer = 512 * 1024
        Dim data As Byte() = New Byte(524287) {}
        Dim inFile As FileStream = File.OpenRead("1.exe")
        Dim outFile As FileStream = File.Create("1-copy.exe")
        Dim amountRead As Integer

        Do
            amountRead = inFile.Read(data, 0, BUFFER_SIZE)
            outFile.Write(data, 0, amountRead)
        Loop While amountRead = BUFFER_SIZE

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