Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) SFTP Read Text FileDemonstrates how to open a text file on the SSH server and read text.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim sftp As Chilkat.SFtp Set sftp = Chilkat.NewSFtp ' Set some timeouts, in milliseconds: sftp.ConnectTimeoutMs = 5000 sftp.IdleTimeoutMs = 15000 ' Connect to the SSH server. ' The standard SSH port = 22 ' The hostname may be a hostname or IP address. hostname = "sftp.example.com" port = 22 success = sftp.Connect(hostname,port) If (success <> True) Then Debug.Print sftp.LastErrorText Exit Sub End If ' Authenticate with the SSH server. Chilkat SFTP supports ' both password-based authenication as well as public-key ' authentication. This example uses password authenication. success = sftp.AuthenticatePw("myLogin","myPassword") If (success <> True) Then Debug.Print sftp.LastErrorText Exit Sub End If ' After authenticating, the SFTP subsystem must be initialized: success = sftp.InitializeSftp() If (success <> True) Then Debug.Print sftp.LastErrorText Exit Sub End If ' Open a file for reading. handle = sftp.OpenFile("myTest.txt","readOnly","openExisting") If (sftp.LastMethodSuccess <> True) Then Debug.Print sftp.LastErrorText Exit Sub End If ' Assume the file we are reading contains the following text: ' abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ ' (in ANSI format -- i.e. one byte per char). ' Read 26 bytes: sText = sftp.ReadFileText(handle,26,"ansi") If (sftp.LastMethodSuccess <> True) Then Debug.Print sftp.LastErrorText Exit Sub End If ' Should print "abcdefghijklmnopqrstuvwxyz" Debug.Print sText ' Read the next 10 bytes. sText = sftp.ReadFileText(handle,10,"ansi") If (sftp.LastMethodSuccess <> True) Then Debug.Print sftp.LastErrorText Exit Sub End If ' Should print "1234567890" Debug.Print sText ' Read the next 26 bytes. sText = sftp.ReadFileText(handle,26,"ansi") If (sftp.LastMethodSuccess <> True) Then Debug.Print sftp.LastErrorText Exit Sub End If ' Should print "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Debug.Print sText ' Close the file. success = sftp.CloseHandle(handle) If (success <> True) Then Debug.Print sftp.LastErrorText Exit Sub End If Debug.Print "Success." |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.