(VB.NET) SFTP Write Text File

Demonstrates 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.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim sftp As New Chilkat.SFtp

' 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.
Dim hostname As String = "sftp.example.com"
Dim port As Integer = 22
Dim success As Boolean = sftp.Connect(hostname,port)
If (success <> True) Then
    Debug.WriteLine(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.WriteLine(sftp.LastErrorText)
    Exit Sub
End If


' After authenticating, the SFTP subsystem must be initialized:
success = sftp.InitializeSftp()
If (success <> True) Then
    Debug.WriteLine(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. 
Dim handle As String = sftp.OpenFile("myTest.txt","writeOnly","createTruncate")
If (sftp.LastMethodSuccess <> True) Then
    Debug.WriteLine(sftp.LastErrorText)
    Exit Sub
End If


' Write some text to the file:
success = sftp.WriteFileText(handle,"ansi","abcdefghijklmnopqrstuvwxyz")
If (success <> True) Then
    Debug.WriteLine(sftp.LastErrorText)
    Exit Sub
End If


success = sftp.WriteFileText(handle,"ansi","1234567890")
If (success <> True) Then
    Debug.WriteLine(sftp.LastErrorText)
    Exit Sub
End If


success = sftp.WriteFileText(handle,"ansi","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
If (success <> True) Then
    Debug.WriteLine(sftp.LastErrorText)
    Exit Sub
End If


' Close the file.
success = sftp.CloseHandle(handle)
If (success <> True) Then
    Debug.WriteLine(sftp.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Success.")