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 Chilkat FTP2 ActiveX

LOCAL loFtp
LOCAL lnSuccess
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

loCert = CreateObject('Chilkat.Cert')

*  It is assumed you've already installed your digital certificate
*  on the system.  If it is located in the Current-User or Local Machine
*  certificate stores located in the Windows Registry, you only
*  need to load it by common name:
lnSuccess = loCert.LoadByCommonName("My cert's common name")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loCert.LastErrorText)
    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()