Ejercicio
Copiador de archivos
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