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) {}
Try
myFile = File.OpenRead(nameFile)
Do
amountRead = myFile.Read(data, 0, BUFFER_SIZE)
myNewFile = File.Create(nameFile & count.ToString("000"))
myNewFile.Write(data, 0, amountRead)
count += 1
myNewFile.Close()
Loop While amountRead = BUFFER_SIZE
myFile.Close()
Catch fileError As Exception
Console.WriteLine("ERROR has ocurred while executing: " & fileError.Message)
End Try
Else
Console.WriteLine("The parameters are incorrects")
Console.WriteLine("usage: splitfile namefile sizeinbytes")
End If
End Sub
End Class