(Visual Basic 6.0) FTP Download with Progress Event Callbacks

FTP download with progress event callbacks.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim WithEvents ftp As  ChilkatFtp2

' PercentDone callback method.
Private Sub ftp_PercentDone(ByVal percentDone As Long, abort As Long)
    Debug.Print "Percent Done: " & percentDone
End Sub

' ProgressInfo callback method.
Private Sub ftp_ProgressInfo(ByVal name As String, ByVal value As String)
    Debug.Print 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.

    Set  ftp = New ChilkatFtp2

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

    ' Connect and login to the FTP server.
    Dim success As Long
    success = ftp.ConnectOnly()
    If (success <> 1) Then
        Debug.Print ftp.LastErrorText
        Exit Sub
    End If

    success = ftp.LoginAfterConnectOnly()
    If (success <> 1) Then
        Debug.Print 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 <> 1) Then
        Debug.Print ftp.LastErrorText
        Exit Sub
    End If

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

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

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

    success = ftp.Disconnect()

    Debug.Print "File Downloaded!"

End Sub