File splitter Learn programming Visual Basic (


File Management


File splitter 59


Create a program to split a file (of any kind) into pieces of a certain size. ir must receive the name of the file and the size as parameters. For example, it might be used by writing:

split myFile.exe 2000

If the file "myFile.exe" is 4500 bytes long, that command would produce a file named "myFile.exe.001" 2000 bytes long, another called "myFile.exe.002" 2000 bytes long, and another named "myFile.exe.003" 500 bytes long.


Imports System
Imports System.IO
Public Class splitFile
    Public Shared Sub Main(ByVal args As String())
        Dim myFile As FileStream
        Dim myNewFile As FileStream
        Dim nameFile As String
        Dim BUFFER_SIZE As Integer
        Dim amountRead As Integer
        Dim count As Integer = 1

        If args.Length = 2 Then
            nameFile = args(0)
            BUFFER_SIZE = Convert.ToInt32(args(1))
            Dim data As Byte() = New Byte(BUFFER_SIZE - 1) {}

                myFile = File.OpenRead(nameFile)

                    amountRead = myFile.Read(data, 0, BUFFER_SIZE)
                    myNewFile = File.Create(nameFile & count.ToString("000"))
                    myNewFile.Write(data, 0, amountRead)
                    count += 1
                Loop While amountRead = BUFFER_SIZE

            Catch fileError As Exception
                Console.WriteLine("ERROR has ocurred while executing: " & fileError.Message)
            End Try
            Console.WriteLine("The parameters are incorrects")
            Console.WriteLine("usage: splitfile namefile sizeinbytes")
        End If
    End Sub
End Class