Make a Copy of a File on Remote SSH Server

Demonstrates how to make a copy of a file on a remote SSH server by running the "cp" command. This works if your server is Linux or Unix-based. For Windows-based servers, use the DOS "copy" command.

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
'  ssh.LastErrorText property when requesting support.

Dim ssh As New Chilkat.Ssh()

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


'  Connect to an SSH server:
Dim hostname As String
Dim port As Long

'  Hostname may be an IP address or hostname:
hostname = "192.168.1.117"
port = 22

success = ssh.Connect(hostname,port)
If (success <> true) Then
    MsgBox(ssh.LastErrorText)
    Exit Sub
End If


'  Wait a max of 5 seconds when reading responses..
ssh.IdleTimeoutMs = 5000

'  Authenticate using login/password:
success = ssh.AuthenticatePw("myLogin","myPassword")
If (success <> true) Then
    MsgBox(ssh.LastErrorText)
    Exit Sub
End If


'  Open a session channel.  (It is possible to have multiple
'  session channels open simultaneously.)
Dim channelNum As Long
channelNum = ssh.OpenSessionChannel()
If (channelNum < 0) Then
    MsgBox(ssh.LastErrorText)
    Exit Sub
End If


'  In this example, we'll copy wine.html to wine2.html
'  The "cp" command has no output (i.e. nothing is written to
'  the standard output) so we'll include an "echo FINISHED"
'  so we can programmatically retrieve the output and close
'  the channel.  Closing the channel immediately after sending
'  the command is not good because w/ some SSH servers
'  it introduces a race condition where the command may not
'  be executed if the server thinks the client has disconnected.
success = ssh.SendReqExec(channelNum,"cp wine.html wine2.html && echo FINISHED")
If (success <> true) Then
    MsgBox(ssh.LastErrorText)
    Exit Sub
End If


'  Read the channel until we receive the FINISHED string.
success = ssh.ChannelReceiveUntilMatch(channelNum,"FINISHED","ansi",true)
If (success <> true) Then
    MsgBox(ssh.LastErrorText)
    Exit Sub
End If


'  Close the channel:
success = ssh.ChannelSendClose(channelNum)
If (success <> true) Then
    MsgBox(ssh.LastErrorText)
    Exit Sub
End If



'  Let's pickup the accumulated output of the command:
'  (In this case, it will be the string "FINISHED")
Dim cmdOutput As String
cmdOutput = ssh.GetReceivedText(channelNum,"ansi")
If (cmdOutput = vbNullString ) Then
    MsgBox(ssh.LastErrorText)
    Exit Sub
End If


'  Display the remote shell's command output:
TextBox1.Text = TextBox1.Text & cmdOutput & vbCrLf

'  Disconnect
ssh.Disconnect()