(Visual Basic 6.0) FTP Upload with Progress Event Callbacks

FTP upload 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 = "my_ftp_username"
    ftp.Password = "my_ftp_password"

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

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

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

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

    success = ftp.Disconnect()

    Debug.Print "File Uploaded!"

End Sub