Visual Basic

Private Sub populate_dgv()
       Dim conn As New SqlConnection
       Dim cmd As New SqlCommand

       conn = GetConnect()
       conn.Open()
       cmd.Connection = conn
       Try
           ' cmd.CommandText = "Select * from tbeRequest"
           cmd.CommandText = "select Request_id,Request_date,Requestor,Destination,Department from tbeRequest r where r.request_id not in(select a.request_id from tbAssign_vehicle a)"
           Dim Adpt As New SqlDataAdapter(cmd.CommandText, conn)
           Dim ds As New DataSet()
           Adpt.Fill(ds, "tbeRequest")
           dgvsource.DataSource = ds.Tables("tbeRequest")

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

   End Sub

Private Sub dgvsource_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvsource.CellDoubleClick

        

        Try
            Dim i As Integer = 0
            Dim Mylist As New List(Of Integer)
            For Each row As DataGridViewRow In dgvsource.SelectedRows
                Mylist.Add(row.Index)
            Next
            Mylist.Sort()

            For Each index As Integer In Mylist
                dgvtarget.Rows(i).Cells("request_id").Value = dgvsource.Rows(index).Cells("request_id").Value
                i = i + 1
            Next
        Catch ex As Exception
        End Try
    End Sub

Imports System.IO
Imports System.Net

Public Class DemoFTPServerApp

Dim _Filename As String
Dim _UploadPath As String
Dim f As String


Public Sub LoadFiles(_User As String, _Password As String, _Path As String)
    Dim _MyArraylist As New ArrayList
    Dim FolderPath As String = "C:\Users\Desktop\files"



    Dim finfo As New DirectoryInfo(FolderPath)
    For Each fi In finfo.GetFiles("*.txt")
        _MyArraylist.Add(fi.FullName) 'full path only
        _Filename = fi.FullName
        f = fi.ToString()
        _UploadPath = _Path & f


       Try
      Dim request As FtpWebRequest = DirectCast(WebRequest.Create(New Uri(_UploadPath)), FtpWebRequest)
            request.Method = WebRequestMethods.Ftp.UploadFile
            request.Credentials = New NetworkCredential(_User, _Password)
            request.UseBinary = True
            request.UsePassive = False
            request.KeepAlive = True
            request.ConnectionGroupName = "company name"
            request.ServicePoint.ConnectionLimit = 4
            request.ServicePoint.CloseConnectionGroup("company name")


            Dim buffer(1023) As Byte
            Dim bytesIn As Long = 1

            Dim filepath As System.IO.FileInfo = New System.IO.FileInfo(_Filename)
            Dim _FileStream As System.IO.FileStream = filepath.OpenRead()
            Dim _Stream As System.IO.Stream = request.GetRequestStream


            Do Until bytesIn < 1
                bytesIn = _FileStream.Read(buffer, 0, 1024)
                If bytesIn > 0 Then
                    _Stream.Write(buffer, 0, bytesIn)

                End If
            Loop

            _Stream.Close()
            _Stream.Dispose()
            _FileStream.Close()
            _FileStream.Dispose()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    Next

    MessageBox.Show("File Succesfully uploaded!")

End Sub

Private Sub btnUploadFile_Click(sender As Object, e As EventArgs) Handles btnUploadFile.Click

   LoadFiles("username", "password", "ftp://ftpsite.com/")

End Sub