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.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

'  Important: It is helpful to send the contents of the
'  sftp.LastErrorText property when requesting support.

Dim sftp As New Chilkat.SFtp()

'  Any string automatically begins a fully-functional 30-day trial.
Dim success As Boolean
success = sftp.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox(sftp.LastErrorText)
    Exit Sub
End If


'  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 port As Long
Dim hostname As String
hostname = "www.my-ssh-server.com"
port = 22
success = sftp.Connect(hostname,port)
If (success <> true) Then
    MsgBox(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
    MsgBox(sftp.LastErrorText)
    Exit Sub
End If


'  After authenticating, the SFTP subsystem must be initialized:
success = sftp.InitializeSftp()
If (success <> true) Then
    MsgBox(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
handle = sftp.OpenFile("myTest.txt","writeOnly","createTruncate")
If (handle = vbNullString ) Then
    MsgBox(sftp.LastErrorText)
    Exit Sub
End If


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


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


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


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


MsgBox("Success.")