Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
Download Text File into String VariableDownload a text file directly into a string variable. 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 = "www.example-code.com" ftp.Username = "example-code.com" ftp.Password = "****" ftp.Passive = 1 ' Connect and login to the FTP server. success = ftp.Connect() If (success <> 1) Then MsgBox ftp.LastErrorText WScript.Quit End If ' Change to the remote directory where the existing file is located. success = ftp.ChangeRemoteDir("junk") If (success <> 1) Then MsgBox ftp.LastErrorText WScript.Quit End If ' Download the contents of the remote file into memory. remoteFilename = "hamletQuote.txt" fileContents = ftp.GetRemoteFileTextData(remoteFilename) ' An empty string indicates a failure. If it is possible ' that the file could be an empty file on the server, ' you call GetSizeByName to check. The ftp.GetSizeByname ' method accepts a filename and returns the size of the ' remote file or -1 if it does not exist or if there is an error. ftp.Disconnect outFile.WriteLine(fileContents) outFile.Close |
Need a specific example? Send a request to support@chilkatsoft.com
© 2003-2007 Chilkat Software, Inc. All Rights Reserved.