Private Sub ftpUploadData(Data() As Byte, FileName As String, UserName As String, Password As String, FtpHost As String)
        Dim FtpUri As Uri = Me.BuildUri("ftp", FtpHost, FileName)
        Dim request As FtpWebRequest = FtpWebRequest.Create(FtpUri)
        Dim Stream As System.IO.Stream = Nothing

        request.Method = WebRequestMethods.Ftp.UploadFile
        request.Credentials = New NetworkCredential(UserName, Password)
        request.KeepAlive = False

        Try
            Stream = request.GetRequestStream()

            Stream.Write(Data, 0, Data.Length)

            Me.ExportFilesCount += 1
        Catch ex As Net.WebException
            Me.ErrorList.Add(String.Format("{0} {1}", ex.Message, FileName))
        End Try

        Try
            If Stream IsNot Nothing Then Stream.Close()
        Catch ex As Net.WebException
            Me.ErrorList.Add(ex.Message)
        End Try

    End Sub

  Public Sub ExportImages(ExportFiles As Dictionary(Of Integer, String), connection As SqlConnection, UserName As String, 
Password As String, FtpHost As String, HttpHost As String)

        If String.IsNullOrEmpty(HttpHost) Then
            Me.ErrorList.Add("Не указан HttpHost")
            Return
        End If

        Dim FileNumber As Integer

        For Each i As Integer In ExportFiles.Keys

            If Me.ErrorList.Any Then Exit For

            Dim FileName As String = ExportFiles(i)
            Dim HttpUri As Uri = Me.BuildUri("http", HttpHost, FileName)

            If Me.UrlExist(HttpUri) = False Then

                Dim Data As Byte() = Me.GetFileData(i, connection)

                If Data IsNot Nothing Then
                       Me.ftpUploadData(Data, FileName, UserName, Password, FtpHost)
                End If

            End If

            FileNumber += 1 : If Me.BW IsNot Nothing Then Me.BW.ReportProgress(FileNumber)

        Next

    End Sub