MS Access VBA 获取 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 常见问题 How do I know that script completed successfully?

所以运行 WinSCP 并确保它 returns 0（成功）。
参见 VBA Shell and Wait with Exit Code

MS Access VBA 获取 WinSCP 传输的结果

MS Access VBA get result of WinSCP transfer

ftp

ms-access

vba

winscp