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