/script (as you had it in your previous post), not / script:
/log:
Private Sub Command1_Click()
Dim strQuote As String
Dim scriptpath As String
Dim result As String
Dim strSFTPDir As String
strSFTPDir = "C:\Program Files (x86)\WinSCP\WinSCP.exe"
scriptpath = "C:\Daily liquidity report\inputspipe\getdtcc.txt"
Dim strCommand As String
strCommand = """" & strSFTPDir & """ / script = """ & scriptpath & """/log=getdtcc.log & """""""
result = Shell(strCommand, vbNormalFocus)
If result = 0 Then
MsgBox "Download Failed"
Else
MsgBox " Download Successful!"
End If
End Sub
# Connect
open ftp://usera:xxxx3478!#@10.xxx.8.xx/
# Change remote directory
cd /
cd /dtccdeliveryorders
# Change local directory
# lcd C:\software\winscp\files\
# Download file to the local directory d:\
get *.FTPRCV C:\Daily liquidity report\inputspipe\DTCC\dtcc\
# Disconnect
close
# Exit WinSCP
exit
/log=C:\path\to\winscp.log command-line argument. Submit the log with your post as an attachment. Note that passwords and passphrases not stored in the log. You may want to remove other data you consider sensitive though, such as host names, IP addresses, account names or file names (unless they are relevant to the problem). If you do not want to post the log publicly, you can mark the attachment as private.open ftp://2852:pwd3478!#@10.xxx.x.xx
cd ftphome
lcd DeliveryOrders\Made
mget 20240628001.FTPRCV \\10.xxx.xx.xx\backupshare\205\Reports\DTCC\dtcc\
quit
Private Sub Command1_Click()
Dim strQuote As String
strQuote = Chr(34)
Dim strSFTPDir As String
strSFTPDir = "C:\Program Files (x86)\Winscp\"
Dim strCommand As String
strCommand = "/script=C:\Daily\inputs\dtccwinscpfile.txt"
Call Shell(strSFTPDir & "winscp.exe " & strQuote & strCommand & strQuote, vbNormalNoFocus)
End Sub
ftp script and WinSCP script.
open ftp://2852:pwd3478!#@10.xxx.x.xx
Private Sub Command1_Click()
Dim strQuote As String
strQuote = Chr(34)
Dim strSFTPDir As String
strSFTPDir = "C:\Program Files (x86)\Winscp\"
Dim strCommand As String
strCommand = "/script=C:\Daily\inputs\dtccwinscpfile.txt"
Call Shell(strSFTPDir & "winscp.exe " & strQuote & strCommand & strQuote, vbNormalNoFocus)
End Sub
open 10.xxx.x.xx
2852
pwd3478!#
cd ftphome
lcd DeliveryOrders
mget *.ftprcv \\10.xxx.xx.xx\backupshare\205\Reports\DTCC\dtcc\*.txt
quit
mget downloads the files which are in FTPRCV type and saves it as .txt