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() |
Partager