[Problème FTP] System.Net.FtpWebRequest

Bonjour à tous merci de lire et de tentez de m'aidé

Voici mon Code Upload FTP

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
        ''Variables
        Dim local_file As String = PathFROM
        Dim remote_file As String = UploadTO & FolderWithFile
        Dim Content_Request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(remote_file), System.Net.FtpWebRequest)
 
        Dim user_name As String = Username
        Dim password As String = Password_FTP
        Dim intChunk
        Dim IntOffSet
        Content_local_file = PathFROM
 
        'Establish credentials for logging into ftp site
        Content_Request.Credentials = New System.Net.NetworkCredential(user_name, password)
 
        'Set properties
        Content_Request.KeepAlive = False
        Content_Request.Proxy = Nothing
        Content_Request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
        Content_Request.UseBinary = True
        Content_Request.ReadWriteTimeout = 3600000
        Try
            TailleContentUpload = Content_Request.ContentLength
        Catch ex As Exception
 
        End Try
        'Read in the file
        Dim b_file() As Byte = System.IO.File.ReadAllBytes(local_file)
 
        'Upload the file
        Dim cls_stream As System.IO.Stream = Content_Request.GetRequestStream()
        Dim T_PB_Calcul
        Dim T_PB_Progress
        IntOffSet = 0
        intChunk = b_file.Length
        MsgBox(b_file.Length)
        Frm_Main.ProgressBar1.Maximum = 100
        For I As Integer = 1 To intChunk
 
            If IntOffSet = intChunk Then
 
            Else
                cls_stream.Write(b_file, IntOffSet, I)
                IntOffSet = IntOffSet + I
                T_PB_Calcul = I / 1048576
                T_PB_Progress = Math.Round(IntOffSet / intChunk * 100, 0)
                TailleContentUpload = Math.Round(IntOffSet / 1048576, 2) & "/" & Math.Round(intChunk / 1048576, 2) & " Mo" & vbCrLf & T_PB_Progress & "%"
                ProgresseBarContent = T_PB_Progress
            End If
 
        Next
 
        cls_stream.Close()
        cls_stream.Dispose()

j'obtien cette erreur à la ligne 43

Citation:

Specified argument was out of the range of valid values.
Parameter: size

J'essaie de récupérer chaque octet uploader sur le serveur en uploade octet par octet le problème est que rendu a la fin du upload une erreur est générer du coup le fichier est corrompu et manque quelque octet