Измените права доступа к файлу, используя команду sftp в сценарии оболочки с использованием VBA.

Question

Как изменить права доступа к файлу xml при использовании команды sftp через скрипт оболочки? У меня установлено соединение sftp, но оно не выполняется при выполнении команды chmod.

На данный момент я использую chmod 7777, который выполняет скрипт без ошибок. Но это не сбрасывание файла WinSCP. На данный момент я использовал следующий код:

Publi c Функция SFTPUpload (sLocalFilePath As String, sRemotePath As String, sFtpUser As String, sFtpPass As String, sFtpHost As String) As Boolean

Dim bUploadStatus As Boolean Dim strCmd As String Dim fso As New FileSystemObject Dim sRemoteFilePath As String Const cstrSftp As String = "" "C: \ Program Files (x86) \ PuTTY \ pscp.exe" "'WinSCP' exe ' путь к местоположению

'Удалить xml файл WinSCP If (sLocalFilePath <> vbNullString And sRemotePath <> vbNullString) Then

'Get FileName from LocalPath
Dim sLocalFileName As String
sLocalFileName = fso.GetFileName(sLocalFilePath)
sRemoteFilePath = sRemotePath & "/" & sLocalFileName

'Creating Shell command
strCmd = cstrSftp & " -sftp -l " & sFtpUser & " -pw " & sFtpPass & _
         " " & sLocalFilePath & " " & sFtpHost & ":" & sRemotePath & _
         " " & "chmod 7777" & " " & sRemoteFilePath

'Run the command without visibility - 0 (window style)
bUploadStatus = Shell(strCmd, vbHide)
'MsgBox strCmd

End If

' Вернуть логическое значение who когда-либо вызывает эту функцию If (bUploadStatus) Тогда SFTPUpload = True Else SFTPUpload = False End If

End Function

Пожалуйста, дайте мне знать, проблема с приведенным выше кодом. Спасибо за помощь.