VBでSFTP接続しファイルアップロードする方法

VBでは標準の機能ではSFTP接続できないようです。(FTPSならできるようですが)
ライブラリを使用してSFTP接続し処理を行います。

今回使ったライブラリは以下です。
https://www.componentpro.com/products/sftp

Example

.vb

Imports System.IO
Imports ComponentPro.IO
Imports ComponentPro.Net

Module Module1

    Sub Main()

        ' Create a new class instance. 
        Dim client As New Sftp()

        ' Connect to the SFTP server.
        client.Connect("XXX.XXX.XXX.XXX", 22)

        ' Authenticate user with a private key.
        client.Authenticate("USER_NAME", "C:\private.key", "password")

        ' Do something here...
        Dim fi As New FileStream("C:\image.jpg", FileMode.Open)
        client.UploadFile(fi, "/img/image.jpg")

        'Disconnect
        fi.Close()
        client.Disconnect()

    End Sub

End Module