Visual Basic 6.0

Create an FTP Upload Plan

Demonstrates the Chilkat Ftp2.CreatePlan method, which creates and returns a textual upload plan for a local directory. The only argument is the local directory. The object must be connected, because the plan records the current absolute remote directory together with the local source paths.

Note: The local paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: A plan is a saved, resumable description of an upload — the list of local files and their absolute remote destinations — computed once and executed later (or on another run) with PutPlan. Separating planning from execution suits large or unreliable transfers: the plan can be reviewed, stored, and re-run, and because it records absolute remote paths it stays correct even if the working directory later changes.

Chilkat Visual Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
success = 0

'  Demonstrates the Ftp2.CreatePlan method, which creates and returns a textual upload plan for a
'  local directory.  The only argument is the local directory.  The object must be connected,
'  because the plan records the current absolute remote directory.

Dim ftp As New ChilkatFtp2

ftp.Hostname = "ftp.example.com"
ftp.Username = "myFtpLogin"

'  Normally you would not hard-code the password in source.  You should instead obtain it
'  from an interactive prompt, environment variable, or a secrets vault.
ftp.Password = "myPassword"

success = ftp.Connect()
If (success = 0) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If

success = ftp.ChangeRemoteDir("public_html")
If (success = 0) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If

'  The plan captures which local files to upload and the absolute remote destination.  Save it so
'  the upload can be run (or resumed) later with PutPlan.
Dim plan As String
plan = ftp.CreatePlan("qa_data/site")
If (ftp.LastMethodSuccess = 0) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If

'  Persist the plan text for later use.
Dim sbPlan As New ChilkatStringBuilder
success = sbPlan.Append(plan)
success = sbPlan.WriteFile("qa_output/upload_plan.txt")
If (success = 0) Then
    Debug.Print sbPlan.LastErrorText
    Exit Sub
End If

Debug.Print "Upload plan created."

success = ftp.Disconnect()
If (success = 0) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If