Transfer Engine (SDK) 

Dim

 MySite 

Set

 MySite = CreateObject("CuteFTPPro.TEConnection") 

            strHost = "ftp.yourhost.com" 

            strPath = "/pub" 

            strLocalPath = "c:\temp\sync_test" 

            strHost = InputBox("Enter host", "CuteFTP Pro", strHost) 

            strPath = InputBox("Enter remote path", "CuteFTP Pro", strPath) 

            strLocalPath = InputBox("Enter local path", "CuteFTP Pro", strLocalPath) 

            MySite.Host = strHost 

            MySite.CaseHandling = 1 

            MySite.Recursive = 

False

            MySite.IgnoreLinks = 

True

            MySite.DeleteDestination = 

False

            MySite.PromptDelete = 

True

nUserChoise = MsgBox ("Mirror remote: " & strHost & strPath & " to local " & 

strLocalPath & " ?", vbYesNoCancel) 

If

 nUserChoise = vbYes 

Then

                        MySite.Synchronize strPath, strLocalPath, 1, 0 

else

nUserChoise = MsgBox ("Mirror local: " & strHost & strLocalPath & " to 

remote " & strPath & " ?", vbYesNoCancel) 

If

 nUserChoise = vbYes 

Then

                                    MySite.Synchronize strPath, strLocalPath, 0, 0 

else

nUserChoise = MsgBox ("Mirror both: " & strHost & strPath & " <  

> " & strLocalPath & " ?", vbYesNoCancel) 

If

 nUserChoise = vbYes 

Then

                                                MySite.Synchronize strPath, strLocalPath, 2, 1 

else

End if

                        End if

            End if

End

Sub

191