Visual Basic - Subir archivo a SFTP

Imports System.IO

Imports System.Text

Public Class Form1

    Dim ruta = My.Computer.FileSystem.SpecialDirectories.Desktop & "\CLIENTE.txt"

    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub addbutton_Click(sender As Object, e As EventArgs) Handles addbutton.Click

        ' Declarar una variable StringBuilder con una longitud adecuada

        Dim sb As New StringBuilder(String.Empty.PadLeft(416))

        ' Recuerda que los índices están en base cero, es decir

        ' la primera posición es el índice 0.

        sb.Insert(0, novedad.Text)

        sb.Insert(1, clientcode.Text)

        sb.Insert(26, identificationtype.Text)

        sb.Insert(28, identificationnumber.Text)

        sb.Insert(48, clientname.Text)

        sb.Insert(98, lastname.Text)

        sb.Insert(148, realcename.Text)

        sb.Insert(169, phone.Text)

        sb.Insert(184, mail.Text)

        sb.Insert(284, address.Text)

        sb.Insert(384, danecode.Text)

        sb.Insert(389, cardnumber.Text)

        sb.Insert(405, expiration.Text)

        sb.Insert(409, fromdate.Text)

        sb.Insert(411, cardtype.Text)

        Using sw As New StreamWriter(ruta, True)

            sw.WriteLine(sb.ToString())

        End Using

        Dim Texto As Object

        Texto = My.Computer.FileSystem.ReadAllText(String.Concat(ruta))

        readbox.Text = Texto

        MessageBox.Show("Registro Añadido")

    End Sub

    Private Sub clientname_TextChanged(sender As Object, e As EventArgs) Handles clientname.TextChanged

    End Sub

    Private Sub Label12_Click(sender As Object, e As EventArgs) Handles Label12.Click

    End Sub

    Private Sub mail_TextChanged(sender As Object, e As EventArgs) Handles mail.TextChanged

    End Sub

    Private Sub readbox_TextChanged(sender As Object, e As EventArgs) Handles readbox.TextChanged

    End Sub

    Private Sub clientload_btn_Click(sender As Object, e As EventArgs) Handles clientload_btn.Click

    End Sub

End Class

'hago referencia la ejecutable, pongo la ip de server  usuario y clave asi como un archivo txt ... en este caso FILETXT

Sub cargaSftp()

    '

    lcomando = App.Path & "\Putty 192.168.60.10 -l Usuario -pw claveusuario -b " & App.Path & "\File.txt"

    Ejecuta_Comando_dos (lcomando)

End Sub

cd reporte ' este es el el dato de la carpeta remota

lcd C:\reportes\txt\ ' dato de la capreta local

mget Reporte*.* ' que hago si obtengo 

mput *.* es       ' o si deseo poner 

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long

Public Sub Ejecuta_Comando_dos(ByVal CmdLine As String)

    'Esperar a que un proceso termine,

    'la ventana se mostrará minimizada sin foco

    Dim hProcess As Long

    Dim RetVal As Long

    On Error GoTo tg_ERROR

    'The next line launches CmdLine as icon,

    'captures process ID

    'MsgBox CmdLine

    'hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, _

    '        Shell(CmdLine, vbMinimizedNoFocus))

    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, _

            Shell(CmdLine, vbMinimizedNoFocus))

    Do

        'Get the status of the process

        GetExitCodeProcess hProcess, RetVal

        'Sleep command recommended as well

        'as DoEvents

        DoEvents

            Sleep 100

    'Loop while the process is active

    Loop While RetVal = STILL_ACTIVE

    Exit Sub

tg_ERROR:

    MsgBox Str$(Err.Number) & " - " & Err.Description

End Sub

sftp.fulljaus.com:2222

putty sftp.fulljaus.com:2222 -l xxxusuario -pw xxxcontraseña -b c:\putty\comandos.txt

cd novedades

lcd C:\putty\novedades\

mput novedades.csv