Chilkat HOME Android™ ASP Visual Basic VB.NET C# iOS (IPhone) Objective-C C++ C Unicode C++ Unicode C MFC Delphi DLL Delphi ActiveX FoxPro Java Perl PHP Extension PHP ActiveX Python PowerShell Ruby SQL Server VBScript
Binary and ASCII FTP Transfer Modes
The 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 |
© 2000-2013 Chilkat Software, Inc. All Rights Reserved.