Sub downloadfile
Starter.ftp.Initialize("ftp",Starter.sys_ftpsite,21,Starter.sys_ftpun,Starter.sys_ftppw)
Log("downloadfile Files")
Dim sf1 As Object = Starter.ftp.DownloadFile("/Sutherlin/download/live/routefile2.csv",False,File.dirrootexternal,"returncust2.txt")
Wait For (sf1) ftp_DownloadCompleted (ServerPath As String, Success As Boolean)
If Success Then
Log("Customer file was download successfully")
Else
Log("Error download file")
End If
Dim sf2 As Object = Starter.ftp.DownloadFile("/Sutherlin/download/live/containfile2.csv",False,File.DirRootExternal,"returncont2.txt")
Wait For (sf2) ftp_DownloadCompleted (ServerPath As String, Success As Boolean)
If Success Then
Log("Container file was download successfully")
Else
Log("Error Container file")
End If
Dim sf3 As Object = Starter.ftp.DownloadFile("/Sutherlin/download/live/notes2.csv",False,File.DirRootExternal,"returnnote2.txt")
Wait For (sf3) ftp_DownloadCompleted (ServerPath As String, Success As Boolean)
If Success Then
Log("Note file was download successfully")
Else
Log("Error Note file")
End If
Dim sf4 As Object = Starter.ftp.DownloadFile("/Sutherlin/download/live/driver2.csv",False,File.DirRootExternal,"driver2.txt")
Wait For (sf4) ftp_DownloadCompleted (ServerPath As String, Success As Boolean)
If Success Then
Log("Note file was driver successfully")
Else
Log("Error driver file")
End If
End Sub