Upload to Tumbleweed SecureTransport FTPS Server

Demonstrates how to connect, authenticate, and upload file to a Tumbleweed Secure Transport SSL FTP Server. Instead of providing a login name and password, you pass the string "site-auth" for the username, and an empty string for the password. You must also provide a client-side digital certificate -- as the certificate's credentials and validity are used to authenticate.

Download 32-bit Chilkat FTP2 ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

LOCAL loFtp
LOCAL lnSuccess
LOCAL loCertStore
LOCAL lcPassword
LOCAL loCert
LOCAL lcLocalFilename
LOCAL lcRemoteFilename

loFtp = CreateObject('Chilkat.Ftp2')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loFtp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

*  This code has been tested with the Tumbleweed server
*  at sft.wellsfargo.com
loFtp.Hostname = "sft.wellsfargo.com"

*  Use these exact strings for the username and password:
loFtp.Username = "site-auth"
loFtp.Password = ""

*  Establish an AUTH SSL secure channel after connecting.
*  Your client-side certificate is used for authentication when
*  the SSL channel is established.
loFtp.AuthSsl = 1

*  The Ssl property is for establishing an implicit SSL connection
*  on port 990.  Do not set it.
loFtp.Ssl = 0

*  Load a certificate from a .pfx
*  A PFX may contain several certs, including the certificates
*  in a chain of authority.
loCertStore = CreateObject('Chilkat.CertStore')

lcPassword = "***"
*  Load the certs from a PFX into an in-memory certificate store:
lnSuccess = loCertStore.LoadPfxFile("my.pfx",lcPassword)
IF (lnSuccess <> 1) THEN
    ? loCertStore.LastErrorText
    QUIT
ENDIF

*  Find the exact cert we'll use:

loCert = loCertStore.FindCertBySubject("My Certificate 123 ABC")
IF (loCert = NULL ) THEN
    ? "Certificate not found!"
    QUIT
ENDIF

*  Tell the Chilkat FTP2 component to use the client-side
*  cert for the SSL connection:
loFtp.SetSslClientCert(loCert)

*  Connect and authenticate with the FTP server.
lnSuccess = loFtp.Connect()
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ELSE
    *  LastErrorText contains information even when
    *  successful. This allows you to visually verify
    *  that the secure connection actually occurred.
    ? loFtp.LastErrorText
ENDIF

=MESSAGEBOX("Secure FTP Channel Established!")

*  Change to the remote directory where the file will be
*  uploaded.  If your file is to be uploaded to the FTP user
*  account's home directory, this is not necessary.
lnSuccess = loFtp.ChangeRemoteDir("someSubDir")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

*  You may include an absolute or relative path with the
*  local filename.  If no path is included, the file should
*  be present in the current working directory of the calling
*  process.

lcLocalFilename = "someFile.dat"

lcRemoteFilename = "someFile.dat"

*  Upload the file.
lnSuccess = loFtp.PutFile(lcLocalFilename,lcRemoteFilename)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

loFtp.Disconnect()