Private Sub Upload(ByRef mySession As Session)

    ' Setup session options

    Dim mySessionOptions As New SessionOptions



    With mySessionOptions

        .Protocol = Protocol_Sftp

        .HostName = "My host name goes here"

        .UserName = "Username goes here"

        .Password = "password goes here"

        .SshHostKeyFingerprint = "ssh-rsa 2048 93:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx"

    End With

    

    ' Connect

    mySession.Open mySessionOptions

    

    ' Upload files

    Dim myTransferOptions As New TransferOptions

    myTransferOptions.TransferMode = TransferMode_Binary

     

    Dim transferResult As TransferOperationResult

    Set transferResult = mySession.GetFiles("/reports/*", "F:\SFTP", False, myTransferOptions)

     

    ' Throw on any error

    transferResult.Check

     

    ' Display results

    Dim transfer As TransferEventArgs

    For Each transfer In transferResult.Transfers

        MsgBox "Upload of " & transfer.Filename & " succeeded"

    Next

    

End Sub