Transfer Engine (SDK) 

MsgBox "task is in working state" + MySite.Host  

End if

Example 2  

Here is another example that checks an asynchronous transfer and will return various 

transfer progress properties of each transfer while IsPending is true.  

Warning:  

If you copy and paste this code, be aware that line breaks may 

be inserted into the code.  

Set MySite = CreateObject("CuteFTPPro.TEConnection")  

MySite.Protocol = "FTP"  

MySite.Port = "21"  

MySite.Host = "ftp.url"  

MySite.login = "loginname"  

MySite.Password = "your pass"  

MySite.Connect  

MySite.Option("CleanupAsync") = False 

  line break  

strNL = (Chr(13) & Chr(10))  

MySite.MaxConnections = 3  

MySite.Option("ThrowError") = false  

MySite.DownloadAsync "inbound/*.*", "c:\temp"  

bContinue = true  

while CBool(

MySite.IsPending

) and bContinue  

str = "LOOP, Total: " & MySite.AsyncTaskNumber & strNL  

for i = 0 to MySite.AsyncTaskNumber   1 step 1  

str = str & i & ": size: " & MySite.TransferredSize(i) & 

", speed: " & MySite.Speed(i) & ", time left: " & 

MySite.TimeLeft(i) & ", status: " & MySite.Status(i) & 

strNL  

next  

str = str & "YES   continue loop, NO   stop tasks, CANCEL 

  exit loop"  

nUserChoise = MsgBox(str, vbYesNocancel)  press YES many 

time to see transfer progresses  

if nUserChoise = vbCancel then  

bContinue = false  

elseif nUserChoise = vbNO then  

221