(VB.NET) FTP Download with Progress Event Callbacks

FTP download with progress event callbacks.

Chilkat .NET Downloads Chilkat .NET Assemblies Chilkat for .NET Core Chilkat for Mono

' 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()

    Dim WithEvents ftp As New Chilkat.Ftp2

    '  Any string unlocks the component for the 1st 30-days.
    Dim success As Boolean = ftp.UnlockComponent("Anything for 30-day trial")
    If (success <> True) Then
        Debug.WriteLine(ftp.LastErrorText)
        Exit Sub
    End If


    ftp.Hostname = "ftp.someFtpServer.com"
    ftp.Username = "myLogin"
    ftp.Password = "myPassword"

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

    success = ftp.LoginAfterConnectOnly()
    If (success <> True) Then
        Debug.WriteLine(ftp.LastErrorText)
        Exit Sub
    End If


    '  Change to the remote directory where the file is located.
    '  This step is only necessary if the file is not in the home directory
    '  of the FTP account.
    success = ftp.ChangeRemoteDir("junk")
    If (success <> True) Then
        Debug.WriteLine(ftp.LastErrorText)
        Exit Sub
    End If


    Dim localFilename As String = "c:/temp/hamlet.xml"
    Dim remoteFilename As String = "hamlet.xml"

    '  Ensure that we get PercentDone callbacks.
    ftp.AutoGetSizeForProgress = True

    '  Download the file.
    success = ftp.GetFile(remoteFilename,localFilename)
    If (success <> True) Then
        Debug.WriteLine(ftp.LastErrorText)
        Exit Sub
    End If


    success = ftp.Disconnect()

    Debug.WriteLine("File Downloaded!")

End Sub