SFTP Object
 
Syntax
 
SFTP.ResumeDownloadFileByName(remoteFilePath As String, localFilePath As String) As Long
 
Description
Resumes an SFTP download. The size of the localFilePath is checked and the download begins at the appropriate position in the remoteFilePath. If localFilePath is empty or non-existent, then this method is identical to DownloadFileByName. If the localFilePath is already fully downloaded, then no additional data is downloaded and the method will return 1.
 
Returns 1 for success, 0 for failure.
 
See Also

Example
Sub Main
 
' Set some timeouts, in milliseconds:
sftp.ConnectTimeoutMs = 5000
sftp.IdleTimeoutMs = 10000
 
' Connect to the SSH server. 
' The standard SSH port = 22
' The hostname may be a hostname or IP address.
Dim hostname As String
hostname = "sftp.example.com"
Dim port As Long
port = 22
Dim success As Long
success = sftp.Connect(hostname,port)
If (success <> 1) 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 <> 1) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
End If
 
' After authenticating, the SFTP subsystem must be initialized:
success = sftp.InitializeSftp()
If (success <> 1) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
End If
 
' Download the file:
Dim remoteFilePath As String
Dim localFilePath As String
localFilePath = "c:/temp/hamlet.xml"
remoteFilePath = "subdir1/subdir2/hamlet.xml"
' The ResumeDownloadFileByName method will check
' the local file and begin downloading the remote file
' at the appropriate point.  For example, if the local
' file is already 215624 bytes long, it will begin downloading
' the remote file at the 215625'th byte -- appending to
' the local file.
success = sftp.ResumeDownloadFileByName(remoteFilePath,localFilePath)
If (success <> 1) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
End If
 
Debug.Print "Success."
 
End Sub