Синхронизация локального и удаленного файла с использованием VBA и WinSCP

Question

Я пытаюсь автоматически синхронизировать локальные файлы с сервером с помощью WinSCP.Я получаю следующую ошибку скрипта:

Вот мой код VBA:

Public Sub pullwinscp()
Shell "wscript C:\Users\Aaron\Desktop\SyncSftp.vbs", vbNormalFocus
End Sub

А вот скриптЯ пытаюсь позвонить (сохранено как .vbs):

open sftp://User:Password@webaddress.org -hostkey="aaaaa-aaa2 aaaaa256 7a:4a:aa:aa:aa:aa:aa:aa:a1:aa:aa:aa:aa:aa:aa:aa"
synchronize local C:\Users\Aaron\Documents\test /home/FTP/Acct Hourly Acctg

Есть идеи, почему я получаю эту ошибку?

Answer 1

Ваш ".vbs" не является кодом VBScript.Это WinSCP скрипт .

Чтобы запустить скрипт WinSCP из VBA, используйте:

Call Shell("C:\path\winscp.com /ini=nul /script=c:\path\SyncSftp.txt")

(после переименования SyncSftp.vbs в SyncSftp.txt, поскольку это не VBScript)

См. Также Использование VBA для запуска сценария WinSCP .