获得WinSCP传输结果

Question

我有使用WinSCP将文件夹上传到FTP服务器的代码。

Dim strSFTPDir As String
strSFTPDir = "C:\Program Files (x86)\WinSCP\"
Dim UploadsDir As String
UploadsDir = DLookup("PathToPics", "Admin") & "\Uploads\*"
Call Shell(strSFTPDir & "winscp.com /command ""open ftp://***/"" ""put -filemask=|*.ldb """"" & UploadsDir & """"" "" ""exit"" ", vbNormalFocus)

但是，我需要让Access知道它是成功的还是失败的。我怎么能这么做？

Answer 1

WinSCP用其退出代码表示结果。

见WinSCP FAQ 我怎么知道脚本已经成功完成了？

因此，运行WinSCP并确保返回0(成功)。

请参阅VBA外壳并使用退出代码等待