Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
Binary and ASCII FTP Transfer ModesThe SetTypeBinary() and SetTypeAscii() method can be called to change the current transfer mode. The default transfer mode is binary. Once SetTypeAscii() or SetTypeBinary() is called, all subsequent transfers will occur in that mode. 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.Hostname = "ftp.secureftp-test.com" ftp.Username = "test" ftp.Password = "test" ' Connect and login to the FTP server. success = ftp.Connect() If (success <> 1) Then MsgBox ftp.LastErrorText WScript.Quit End If ' Set the transfer mode to ASCII success = ftp.SetTypeAscii() If (success <> 1) Then MsgBox ftp.LastErrorText WScript.Quit End If ' Change to the remote directory where the file will be uploaded. success = ftp.ChangeRemoteDir("junk") If (success <> 1) Then MsgBox ftp.LastErrorText WScript.Quit End If ' Upload a file. localFilename = "hamlet.xml" remoteFilename = "hamlet.xml" ' Turn on session logging for the upload: ftp.KeepSessionLog = 1 success = ftp.PutFile(localFilename,remoteFilename) If (success <> 1) Then MsgBox ftp.LastErrorText WScript.Quit End If ' View the session log. You can verify visually that ' the transfer was in ascii mode. outFile.WriteLine(ftp.SessionLog) ftp.Disconnect MsgBox "File Uploaded!" outFile.Close |
Need a specific example? Send a request to support@chilkatsoft.com
© 2003-2007 Chilkat Software, Inc. All Rights Reserved.