MS Access VBA получает результат передачи WinSCP

Question

У меня есть код, который загружает папку на FTP-сервер с помощью WinSCP.

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 указывает результат с кодом завершения.
См. FAQ по WinSCP Как узнать, что скрипт успешно завершен?

Итак, запустите WinSCP и убедитесь, что он возвращает 0 (успех)).
См. Оболочка VBA и ожидание с кодом выхода