Filemanager problem

[marjinz]

Hello! Im coding a filemanager and I need some help.
The download speed is very slow.

The arrived packets are loaded into memory (4 kb/packet) and that also makes the program very slow. The packets should get into the file as soon as they arrived.
Can you help me to fix the code? Code (Client side):

'Module
Public CurrentDirectory As String
Public intFile As Integer
Public lngFileSize As Long
Public lngFileProg As Long
Public StrFileName As String
Public RequestedFile As String
Public tmpstring As String
Public screenshot As Boolean
-------------------------------------------------------------------
 
 
Private Sub ClientSck_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim arrLines() As String
Dim i As Integer
Dim Lines As Long
Dim All_data As String
Dim Clean_Data As String
Dim Temp_Data As String
Dim NData() As String
Dim FileBuffer As String
 
ClientSck(Index).GetData All_data, vbString
NData = Split(All_data, "|")
Select Case NData(0)
 
 
 
 
        Case "SEND_FILE": lngFileSize = Int(NData(1)): Filemanager.ProgressBar.Max = lngFileSize: Filemanager.lblPercent.Caption = "0%": intFile = FreeFile
                          lngFileSize = Int(NData(1)): Screencapture.PB.Max = lngFileSize
                          SckNumber = lstConTable.ListItems.Item(lstConTable.SelectedItem.Index)
                          If FileExists(StrFileName) Then
                              Kill StrFileName: DoEvents
                          End If
                          Open StrFileName For Binary Access Write As intFile: ClientSck(SckNumber).SendData "ACPT_FILE" & "|" & RequestedFile: lngFileProg = 0
 
 
 
        Case "CHNK_DATA"
            SckNumber = lstConTable.ListItems.Item(lstConTable.SelectedItem.Index)
            All_data = Mid$(All_data, 11, Len(All_data) - 10)
 
            If (lngFileProg + 4096) < lngFileSize Then
                lngFileProg = lngFileProg + 4096
                Filemanager.ProgressBar.Value = Filemanager.ProgressBar.Value + 4096
                Filemanager.lblPercent.Caption = Format$((Filemanager.ProgressBar.Value / Filemanager.ProgressBar.Max * 100), "##.##") & "%"
                Screencapture.PB.Value = Screencapture.PB.Value + 4096
                Put intFile, , All_data
                ClientSck(SckNumber).SendData "CHNK_FILE"
 
            Else
 
                All_data = Left$(All_data, lngFileSize - lngFileProg)
                Filemanager.ProgressBar.Value = Filemanager.ProgressBar.Max
                Filemanager.lblPercent.Caption = "100%"
                Put intFile, , All_data
                ClientSck(SckNumber).SendData "DONE_FILE"
                Close intFile
                Filemanager.ProgressBar.Value = 0
                 Screencapture.PB.Value = 0
                Filemanager.lblPercent.Caption = vbNullString
 
                If screenshot = True And StrFileName = App.Path & "\CompressedSS.cmp" Then
                    screenshot = False
                    DecompressFile App.Path & "\CompressedSS.cmp", App.Path & "\Screencapture.bmp"
                    Kill App.Path & "\CompressedSS.cmp"
                    Screencapture.Picture1.Picture = LoadPicture(App.Path & "\Screencapture.bmp")
  Screencapture.Picture1.ScaleMode = 3
    Screencapture.Picture1.AutoRedraw = True
    Screencapture.Picture1.PaintPicture Screencapture.Picture1.Picture, _
        0, 0, Screencapture.Picture1.ScaleWidth, Screencapture.Picture1.ScaleHeight, _
        0, 0, _
        Screencapture.Picture1.Picture.Width / 26.46, _
        Screencapture.Picture1.Picture.Height / 26.46
    Screencapture.Picture1 = Screencapture.Picture1.Image
 
                Else
 
                    statBar.SimpleText = "Status: Command Executed"
                    MsgBox "Download Finished" & vbNewLine & vbNewLine & "Total Recived: " & Format$(Filemanager.ProgressBar.Max, "###,###,###,###") & " bytes", vbOKOnly, "Nedladdnings status"
 
                End If
            End If