**** VB.NET Extract ****************************************
Public Sub SetSessionOptions()
        Try
            mySession.DebugLogPath = "D:\IT_Anwendungen\Datenaustausch\WinSCP-Log\export-gwg-test-2.log"
        Catch ex As Exception
            mySession.DebugLogPath = "O:\Datenaustausch\WinSCP-Log\export-gwg-test-2.log"
        End Try

        Try
            mySessionOptions.Protocol = Protocol.Sftp
            mySessionOptions.HostName = host_servername
            mySessionOptions.PortNumber = 22
            mySessionOptions.UserName = client_username
            mySessionOptions.Password = client_userpassword
            mySessionOptions.SshHostKeyFingerprint = "ssh-ed25519 256 xirJmD/0DgUenJZ7msgH+jEsE+1J/QbYK7rQu0ZpFV8="

        Catch ex As Exception
            MsgBox(ex.Message)
            End
        End Try
    End Sub
    Public Sub StartSession()
        Dim myReturn As String

        myLocalFullPath = LOCAL_ROOT & BUKR & " \ " & FILETYPE & " \ "
        myRemoteFullPath = REMOTE_PATH & BUKR & " / " & FILETYPE & " / "

        Try
            mySession.Open(mySessionOptions)
            myTransferOptions.TransferMode = TransferMode.Binary
            myTransferResult = mySession.PutFiles(myLocalFullPath & " * .* ", myRemoteFullPath, False, myTransferOptions)
            myTransferResult.Check()

        Catch ex As Exception
            myReturn = ex.Message
            End
        End Try

    End Sub
**** VB.NET Extract END ****************************************