Option Explicit

Sub Connect_To_SFTP1()

Dim mySession As New session


' Enable custom error handling
On Error Resume Next

Upload mySession

' Query for errors
If Err.Number <> 0 Then
MsgBox "Error: " & Err.Description
Debug.Print Err.Number

' Clear the error
Err.Clear
End If

' Disconnect, clean up
mySession.Exit


' Restore default error handling
On Error GoTo 0

End Sub

Sub Upload(ByRef mySession As session)
Dim works As String

'works = "C:\Users\hpadmin\Downloads\winscp\WinSCP.exe"
'Shell (works)
' Setup session options
Dim mySessionOptions As New sessionOptions
'bool GiveUpSecurityAndAcceptAnySshHostKey
With mySessionOptions
.Protocol = Protocol_Sftp
.HostName = "labs.eds.com"
.UserName = "******"
.Password = "******"
.GiveUpSecurityAndAcceptAnySshHostKey = True

' Connect
mySession.Open mySessionOptions

' Upload files
Dim transferOptions As New transferOptions
'Set transferOptions = WScript.CreateObject("WinSCP.TransferOptions")
transferOptions.TransferMode = TransferMode_Binary
 
Dim transferResult
Set transferResult = mySession.GetFiles("/Output_TXT/*", "c:\toupload\", False, transferOptions)
 
' Throw on any error
transferResult.Check
 
' Print results
Dim transfer
For Each transfer In transferResult.Transfers
    Debug.Print "Download of " & transfer.Filename & " succeeded"
Next
' Disconnect, clean up
mySession.Dispose

End Sub