Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Dim host As String = "ftp.sample.com"
Dim port As String = "22"
Dim username As String = "myUseName"
Dim password As String = "myPass"
Dim f As New FileInfo("C:\temp\testfile.txt")
Dim uploadfile As String = f.FullName
Dim client = New SftpClient(host, port, username, password)
client.Connect()
If client.IsConnected Then
Console.WriteLine("I AM CONNECTED")
End If
Dim ofileStream = New System.IO.FileStream(uploadfile, FileMode.Open)
client.BufferSize = 4 * 1024
Dim a As System.Action(Of ULong) = Nothing
client.UploadFile(ofileStream, f.Name, a)
client.Disconnect()
client.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub