VBA and SFTP

[nd0911]

Hello,

Im trying to upload a file with SFTP using VBA, is it possible ?

I found this code but I dont know what I need to change to use it.

Public Sub SFTPGet(fname As String)
    Const cstrSftp As String = """mylink.com/pscp.exe"""
    Dim strCommand As String
    Dim pUser As String
    Dim pKey As String
    Dim pHost As String
    Dim pFile As String
    Dim pLocalPath As String


    pUser = "user1"
    pKey = """" & BILLING_FOLDER & "some_private.ppk"""
    pFile = "someplace/data" & fname
    pLocalPath = """" & sInputFileFolder & "."""


    strCommand = cstrSftp & " -sftp -l " & pUser & " -i " & pKey & " " & pFile & " " & pLocalPath


    Shell strCommand
End Sub

I will be happy for some help.

Thank you !

 

[nd0911]

Anyone ?

 

[John_w]

Unable to test and based on https://www.ssh.com/ssh/putty/putty-manuals/0.68/Chapter5.html, maybe change the strCommand to this:

strCommand = cstrSftp & " -sftp " & Chr(34) & pLocalPath & Chr(34) & " " & pUser & "@host.com:/folder/" & pFile

Insert the -i pKey option if necessary.