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 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Visual Basic 6.0) SFTP Resume UploadDemonstrates how to resume an SFTP upload to an SSH server. The ResumeUploadFileByName method checks the size of the file on the remote server and begins uploading from the appropriate position in the local file.
' Important: It is helpful to send the contents of the ' sftp.LastErrorText property when requesting support. Dim sftp As New ChilkatSFtp ' Any string automatically begins a fully-functional 30-day trial. Dim success As Long success = sftp.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then Debug.Print sftp.LastErrorText Exit Sub End If ' 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 port As Long Dim hostname As String hostname = "www.my-ssh-server.com" port = 22 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 ' Upload from the local file to the SSH server. ' Important -- the remote filepath is the 1st argument, ' the local filepath is the 2nd argument; Dim remoteFilePath As String remoteFilePath = "hamlet.xml" Dim localFilePath As String localFilePath = "c:/temp/hamlet.xml" ' The ResumeUploadFileByName method first gets the size ' of the partial file on the server and then begins uploading ' from the appropriate point in the local file. ' If the remote file does not exist or is 0-length, this ' method is equivalent to UploadFileByName. ' If the remote file is already equal to or larger in size ' than the local file, then nothing more is uploaded. success = sftp.ResumeUploadFileByName(remoteFilePath,localFilePath) If (success <> 1) Then Debug.Print sftp.LastErrorText Exit Sub End If Debug.Print "Success." |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.