(Visual FoxPro) AWS Transfer for SFTP (Amazon S3)

Once you've setup your AWS Transfer for SFTP in the AWS Console, interacting with it is no different than any other SSH/SFTP server. AWS will provide a private key in PEM format. It is used for authentication (instead of a password).

For more information, see https://docs.aws.amazon.com/transfer/latest/userguide/getting-started-use-the-service.html

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loSftp
LOCAL lcDomain
LOCAL lnPort
LOCAL lnSuccess
LOCAL loSshKey
LOCAL lcKeyText
LOCAL lcRemoteFilePath
LOCAL lcLocalFilePath

* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.SFtp')
loSftp = CreateObject('Chilkat.SFtp')

* Connect to the AWS SFTP server.
* Change the domain to your value.
lcDomain = "s-123456df999999fab.server.transfer.eu-west-2.amazonaws.com"
lnPort = 22
lnSuccess = loSftp.Connect(lcDomain,lnPort)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

* Load your AWS SFTP private key PEM file..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.SshKey')
loSshKey = CreateObject('Chilkat.SshKey')
lcKeyText = loSshKey.LoadText("qa_data/pem/s3_sftp_privateKey.pem")
IF (loSshKey.LastMethodSuccess <> 1) THEN
    ? loSshKey.LastErrorText
    RELEASE loSftp
    RELEASE loSshKey
    CANCEL
ENDIF

lnSuccess = loSshKey.FromOpenSshPrivateKey(lcKeyText)
IF (lnSuccess = 0) THEN
    ? loSshKey.LastErrorText
    RELEASE loSftp
    RELEASE loSshKey
    CANCEL
ENDIF

* Authenticate with the SSH server using the private key.
lnSuccess = loSftp.AuthenticatePk("myUsername",loSshKey)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    RELEASE loSshKey
    CANCEL
ENDIF

* After authenticating, the SFTP subsystem must be initialized:
lnSuccess = loSftp.InitializeSftp()
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    RELEASE loSshKey
    CANCEL
ENDIF

* Upload from the local file to the SSH server.
* Important -- the remote filepath is the 1st argument,
* the local filepath is the 2nd argument;
lcRemoteFilePath = "hamlet.xml"
lcLocalFilePath = "c:/temp/hamlet.xml"

lnSuccess = loSftp.UploadFileByName(lcRemoteFilePath,lcLocalFilePath)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    RELEASE loSshKey
    CANCEL
ENDIF

? "Success."

RELEASE loSftp
RELEASE loSshKey