Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
Upload Directory TreeUpload an entire directory tree from the local filesystem to an FTP server. Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) set ftp = CreateObject("Chilkat.Ftp2") ' Any string unlocks the component for the 1st 30-days. success = ftp.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then MsgBox ftp.LastErrorText WScript.Quit End If ftp.KeepSessionLog = 1 ftp.Hostname = "ftp.chilkatsoft.com" ftp.Username = "myLogin" ftp.Password = "myPassword" ' Connect and login to the FTP server. success = ftp.Connect() If (success <> 1) Then MsgBox ftp.LastErrorText WScript.Quit End If ' Set the current remote directory to the root where the ' directory tree will be uploaded. success = ftp.ChangeRemoteDir("/something") If (success <> 1) Then MsgBox ftp.LastErrorText WScript.Quit End If ' Upload the entire directory tree rooted at c:/temp/something success = ftp.PutTree("c:/temp/something") If (success <> 1) Then MsgBox ftp.LastErrorText WScript.Quit End If ftp.Disconnect outFile.WriteLine(ftp.SessionLog) outFile.Close |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.