Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
Upload to Tumbleweed SecureTransport FTPS ServerDemonstrates 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.
Dim ftp As New Chilkat.Ftp2() Dim success As Boolean ' Any string unlocks the component for the 1st 30-days. success = ftp.UnlockComponent("Anything for 30-day trial") If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' This code has been tested with the Tumbleweed server ' at sft.wellsfargo.com ftp.Hostname = "sft.wellsfargo.com" ' Use these exact strings for the username and password: ftp.Username = "site-auth" ftp.Password = "" ' Establish an AUTH SSL secure channel after connecting. ' Your client-side certificate is used for authentication when ' the SSL channel is established. ftp.AuthSsl = true ' The Ssl property is for establishing an implicit SSL connection ' on port 990. Do not set it. ftp.Ssl = false Dim cert As New 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: success = cert.LoadByCommonName("My cert's common name") If (success <> true) Then MsgBox(cert.LastErrorText) Exit Sub End If ' Tell the Chilkat FTP2 component to use the client-side ' cert for the SSL connection: ftp.SetSslClientCert(cert) ' Connect and authenticate with the FTP server. success = ftp.Connect() If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub Else ' LastErrorText contains information even when ' successful. This allows you to visually verify ' that the secure connection actually occurred. TextBox1.Text = TextBox1.Text & ftp.LastErrorText & vbCrLf End If MsgBox("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. success = ftp.ChangeRemoteDir("someSubDir") If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' 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. Dim localFilename As String localFilename = "someFile.dat" Dim remoteFilename As String remoteFilename = "someFile.dat" ' Upload the file. success = ftp.PutFile(localFilename,remoteFilename) If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ftp.Disconnect() |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.