(Visual FoxPro) Wasabi FTP Upload

See more Wasabi Examples

Demonstrates how to upload a file to Wasabi using FTP.

Note: Because of problems specific to Wasabi's FTP server, Chilkat v9.5.0.89 or later is needed for FTP access to Wasabi.

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

LOCAL loFtp
LOCAL lnSuccess
LOCAL lcLocalFilePath
LOCAL lcRemoteBucketPath

* This example assumes the Chilkat HTTP 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.Ftp2')
loFtp = CreateObject('Chilkat.Ftp2')

* Use the domain for the bucket you'll be managing.
loFtp.Hostname = "s3.s3.us-west-1.wasabisys.com"

* Use your root account username (email address) and root account password
loFtp.Username = "root_account_username"
loFtp.Password = "root_account_password"
loFtp.Ssl = 1
loFtp.Port = 990

* Note: Because of problems specific to Wasabi's FTP server, Chilkat v9.5.0.89 or later is needed for FTP access to Wasabi.
lnSuccess = loFtp.Connect()
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

* Upload a file (starfish.jpg) to the bucket named "chilkat"
lcLocalFilePath = "qa_data/jpg/starfish.jpg"
lcRemoteBucketPath = "/chilkat/starfish.jpg"
lnSuccess = loFtp.PutFile(lcLocalFilePath,lcRemoteBucketPath)
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

? "File uploaded."

RELEASE loFtp