(VB.NET) FTP Upload with Progress Event Callbacks

FTP upload with progress event callbacks.

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

' PercentDone callback method.
Private Sub ftp_OnPercentDone(sender As Object, args As Chilkat.PercentDoneEventArgs) Handles ftp.OnPercentDone

    Dim percentDone As Integer = args.PercentDone
        Debug.WriteLine("Percent Done: " & percentDone)
End Sub

' ProgressInfo callback method.
Private Sub ftp_OnProgressInfo(sender As Object, args As Chilkat.ProgressInfoEventArgs) Handles ftp.OnProgressInfo

    Dim name As String = args.Name
    Dim value As String = args.Value
        Debug.WriteLine(name & ": " & value)
End Sub

private Sub ChilkatExample()

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





    Dim WithEvents ftp As New Chilkat.Ftp2

    ftp.Hostname = "ftp.someFtpServer.com"
    ftp.Username = "my_ftp_username"
    ftp.Password = "my_ftp_password"


    ' Connect and login to the FTP server.
    Dim success As Boolean = ftp.Connect()
    If (success <> True) Then
        Debug.WriteLine(ftp.LastErrorText)
        Exit Sub
    End If


    ' Change to the remote directory where the file will be uploaded.
    success = ftp.ChangeRemoteDir("junk")
    If (success <> True) Then
        Debug.WriteLine(ftp.LastErrorText)
        Exit Sub
    End If


    ' Upload a file.
    Dim localPath As String = "c:/temp/hamlet.xml"
    Dim remoteFilename As String = "hamlet.xml"

    success = ftp.PutFile(localPath,remoteFilename)
    If (success <> True) Then
        Debug.WriteLine(ftp.LastErrorText)
        Exit Sub
    End If


    success = ftp.Disconnect()

    Debug.WriteLine("File Uploaded!")

End Sub