i = 1
        Dim x As Integer
        Dim z As Integer = 3
        If at(3) <> Nothing And at(6) <> Nothing Then
            x = at(0) + 1
            For var = i To x
                Dim PACKET_SIZE As UInt16 = 4096
                Dim ByteArray() As Byte ' Data buffer
                Dim filestream As FileStream = New FileStream(at(z), FileMode.Open, FileAccess.Read)
                Dim Reader As New BinaryReader(filestream)
                Dim Writer As New BinaryWriter(clientSocke.GetStream) ' Get socket's stream
                'send size of file
                Writer.Write(CInt(filestream.Length))
                'Send the file data
                Do
                    'read data from file
                    ByteArray = Reader.ReadBytes(PACKET_SIZE)
                    'write data to Network Stream
                    Writer.Write(ByteArray)
                Loop While ByteArray.Length = PACKET_SIZE
                'make sure all data is sent
                Writer.Flush()
                z = z + 3
                Writer.Close()
                Reader.Close()
            Next
            end if

         Dim x As Integer
         Dim z As Integer = 3
         If arrayTeks(3) <> Nothing And arrayTeks(6) <> Nothing Then
                    x = arrayTeks(0) + 1
                    For var = i To x
                        Dim PACKET_SIZE As UInt16 = 4096
                        Dim Reader As BinaryReader
                        Dim ReadBuffer(PACKET_SIZE - 1) As Byte
                        Dim NData As Int32
                        Dim MStream As MemoryStream
                        Dim LData As Int32
 
                        Reader = New BinaryReader(clientSocket.GetStream)
                        ' Read Length of data (Int32)
                        NData = Reader.ReadInt32
                        ' Now comes the data, save it in a memory stream
                        MStream = New MemoryStream
                        While NData > 0
                            LData = clientSocket.GetStream.Read(ReadBuffer, 0, PACKET_SIZE)
                            MStream.Write(ReadBuffer, 0, LData)
                            NData -= LData
                        End While
 
                        SaveFile(arrayTeks(z), MStream.ToArray, False) 'Then
                        z = z + 3
                    Next
                end if