Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Passive FTP Upload
Simple example to upload a file to an FTP server using passive mode. 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 ftp.Hostname = "www.example-code.com" ftp.Username = "****" ftp.Password = "****" ' The default data transfer mode is "Active" as opposed to "Passive". ' Change it to Passive by setting the Passive property: ftp.Passive = true ' Connect and login to the FTP server. success = ftp.Connect() If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' Change to the remote directory where the file will be uploaded. success = ftp.ChangeRemoteDir("junk") If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' Upload a file. Dim localFilename As String localFilename = "hamlet.xml" Dim remoteFilename As String remoteFilename = "hamlet.xml" success = ftp.PutFile(localFilename,remoteFilename) If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ftp.Disconnect() MsgBox("File Uploaded!") |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.