(VB.NET) FTP Download with Progress Event Callbacks

FTP download 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 = "myLogin"
    ftp.Password = "myPassword"

    ' Connect and login to the FTP server.
    Dim success As Boolean = 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