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
Upload Directory Tree
Upload an entire directory tree from the local filesystem to an FTP server. 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.KeepSessionLog = true ftp.Hostname = "ftp.chilkatsoft.com" ftp.Username = "myLogin" ftp.Password = "myPassword" ' Connect and login to the FTP server. success = ftp.Connect() If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' Set the current remote directory to the root where the ' directory tree will be uploaded. success = ftp.ChangeRemoteDir("/something") If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' Upload the entire directory tree rooted at c:/temp/something success = ftp.PutTree("c:/temp/something") If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ftp.Disconnect() TextBox1.Text = TextBox1.Text & ftp.SessionLog & vbCrLf TextBox1.Refresh() |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.