sFTPScript = sFTPScript & "option batch on" & vbCRLF
    sFTPScript = sFTPScript & "option confirm off"& vbCrLf
    sFTPScript = sFTPScript & "option transfer binary" & vbCrLf
    sFTPScript = sFTPScript & "open sftp://" & FtpUser & ":" & FtpPassword & "@" & FtpServerName & vbCrLf
    sFTPScript = sFTPScript & "cd " & FTPFolderPath  & vbCrLf
    sFTPScript = sFTPScript & "get *  " & LocalFolderPath & vbCRLF
    sFTPScript = sFTPScript & "close" & vbCrLf
    sFTPScript = sFTPScript & "exit" & vbCrLf
    sFTPTemp = oFTPScriptShell.ExpandEnvironmentStrings("%TEMP%")
    sFTPTempFile = sFTPTemp & "" & oFTPScriptFSO.GetTempName
    'Write the input file for the sftp command to a temporary file.
    Set oFTPScript = oFTPScriptFSO.CreateTextFile(sFTPTempFile, True)
    oFTPScript.WriteLine(sFTPScript)
    oFTPScript.Close
    Set oFTPScript = Nothing
    sCmd = """C:Program Files (x86)WinSCPwinscp.exe""  /console /log=" & LocalFolderPath  & "log_winscp_get_files.log /loglevel=1 -script=" & sFTPTempFile
    oFTPScriptShell.run sCmd
    Wait 10
    If Err.Number <> 0 Then
        Reporter.ReportEvent micFail, "Error occured while downloading file from FTP location ["& FTPFolderPath&"] to local folder ["&LocalFolderPath&"]"
        rc = micFail
    Else
    'oFTPScriptFSO.DeleteFile(LocalFolderPath&"log_winscp_get_files.log")
    End If

    ' Get rid of temp file used for input to sftp
    'oFTPScriptFSO.DeleteFile(sFTPTempFile)
     success = oFTPScript.RemoveFile(FTPFolderPath)
If (success <> 1) Then
outFile.WriteLine(oFTPScript.LastErrorText)