Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) FTP Upload / Download to a BinData ObjectDemonstrates how to FTP upload the contents of a BinData object, and FTP downloads to the a BinData object.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) ' This example assumes Chilkat Ftp2 to have been previously unlocked. ' See Unlock Ftp2 for sample code. set ftp = CreateObject("Chilkat_9_5_0.Ftp2") ftp.Hostname = "www.my-ftp-server.com" ftp.Username = "mFtpLogin" ftp.Password = "myFtpPassword" ' Connect to the FTP server. success = ftp.ConnectOnly() If (success <> 1) Then outFile.WriteLine(ftp.LastErrorText) WScript.Quit End If ' Authenticate with the FTP server. success = ftp.LoginAfterConnectOnly() If (success <> 1) Then outFile.WriteLine(ftp.LastErrorText) WScript.Quit End If set bdA = CreateObject("Chilkat_9_5_0.BinData") success = bdA.LoadFile("qa_data/jpg/penguins.jpg") ' Upload the contents of bdA to the FTP server. remoteFilename = "penguins.jpg" success = ftp.PutFileBd(bdA,remoteFilename) If (success <> 1) Then outFile.WriteLine(ftp.LastErrorText) WScript.Quit End If ' Download... set bdB = CreateObject("Chilkat_9_5_0.BinData") success = ftp.GetFileBd(remoteFilename,bdB) If (success <> 1) Then outFile.WriteLine(ftp.LastErrorText) WScript.Quit End If ' Verify that bdA and bdB have the exact same contents. outFile.WriteLine("size of bdA: " & bdA.NumBytes) If (bdA.ContentsEqual(bdB) = 1) Then outFile.WriteLine("Contents are equal. Success.") Else outFile.WriteLine("Contents are NOT equal. Failed.") End If success = ftp.Disconnect() outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.