Private Sub FtpUploadData(Data() As Byte, FileName As String, UserName As String, Password As String, FtpHost As String)

        Dim FtpUri As Uri = BuildUri(FtpHost, FileName)

        If FtpUri Is Nothing Then Return

        Dim Request As FtpWebRequest = FtpWebRequest.Create(FtpUri)
        Dim Stream As System.IO.Stream = Nothing

        Request.Method = Method
        Request.Credentials = New NetworkCredential(UserName, Password)
        Request.KeepAlive = False

        Try
            Stream = Request.GetRequestStream()

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

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

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

    End Sub

    Public Sub ExportImagesByRoot(ExportFiles As Dictionary(Of Object, String), Connection As SqlConnection, UserName As String, Password As String, FtpHost As String, BW As System.ComponentModel.BackgroundWorker)

        For Each File As KeyValuePair(Of Object, String) In ExportFiles

            Dim Data As Byte() = GetFileData(FileID, Connection)

            If Data IsNot Nothing Then
                FtpUploadData(Data, FileName, UserName, Password, FtpHost)
            End If

        Next

    End Sub