; First specify a variable called MysiteBreak On
Dim $MySite
$MySite = CreateObject("CuteFTPPro.TEConnection")
; Now set each property for the site connection or use the defaults
$MySite.Protocol = "FTP"
$MySite.Host = "kyle.globalscape.com"
$MySite.Login = "anonymous"
$MySite.Password = "user@user.com"
$MySite.RemoteFolder = "/Pub/cuteftp"
$MySite.UseProxy = "BOTH"
; Now see if the local folder exists
If Not $MySite.LocalExists("c:\temp")
; Create it if necessary
$MySite.CreateLocalFolder("c:\temp")
EndIf
; Change directories to the destination folder
$MySite.LocalFolder = "c:\temp"
;Check if the remote folder exists using another method
$b = $MySite.RemoteExists("english")
; assign the above in to a variable then qualify it
If Not $b
;tell the user that the folder was not found and quit since i have no
;permission to create the remote folder anyway
MessageBox ("Remote folder not found!. Please make sure that the english folder exists on the remote site","Not found",0)
Quit(1)
EndIf
; Downloading the english folder with all its files into the
; local destination folder, giving it a new long name
$MySite.Download("english", "latest english cuteftp version")
$= MessageBox("Folder english was successfully downloaded to c:\temp\latest english cuteftp version","Ok",0)
;now we are going to rename the local folder to something shorter
;but first check to see if a folder with that name already exist.
If ($MySite.LocalExists("Latest"))
$MySite.LocalRemove "Latest"
$= MessageBox("Previous version of Latest deleted","",0)
EndIf
; Rename the local folder
$MySite.LocalRename("latest english cuteftp version", "Latest")
$= MessageBox("Folder renamed to Latest","",0)
;Done
;End of sample script.
;You can save you script and then run it by either selecting it from the Tools > Run
;Script menu of by double clicking on the script file in Windows
