Sub Globals
Dim filename as String
End Sub
Sub Process_Globals
Dim ftp1 As FTP
End Sub
Sub Activity_Create(FirstTime As Boolean)
ftp1.Initialize("ftp1", "http://www.anysite.com", port number, "username", "password")
End Sub
Sub downloadfile
ftp1.DownloadFile("/files/"&filename, False, File.DirRootExternal,filename)
End Sub
Sub ftp1_DownloadCompleted (ServerPath As String, Success As Boolean)
If Success = True Then
'Do something
Else
'Do something
End If
End Sub
Sub ftp1_UploadCompleted (ServerPath As String, Success As Boolean)
If Success = False Then
'Do something
Else
'Do something
End If
End Sub
Sub uploadfile
ftp1.UploadFile(File.Dirrootexternal,filename, True, "/files/"&filename)
End Sub