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 Write Text FileDemonstrates how to create a new text file on the remote SSH server, append text by calling WriteFileText one or more times, and then close the file.
' 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 on the server for writing. ' "createTruncate" means that a new file is created; if the file already exists, it is opened and truncated. handle = sftp.OpenFile("myTest.txt","writeOnly","createTruncate") If (sftp.LastMethodSuccess <> True) Then Debug.Print sftp.LastErrorText Exit Sub End If ' Write some text to the file: success = sftp.WriteFileText(handle,"ansi","abcdefghijklmnopqrstuvwxyz") If (success <> True) Then Debug.Print sftp.LastErrorText Exit Sub End If success = sftp.WriteFileText(handle,"ansi","1234567890") If (success <> True) Then Debug.Print sftp.LastErrorText Exit Sub End If success = sftp.WriteFileText(handle,"ansi","ABCDEFGHIJKLMNOPQRSTUVWXYZ") If (success <> True) Then Debug.Print sftp.LastErrorText Exit Sub End If ' 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.