'Activity module
Sub Process_Globals
Dim FTP As FTP
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
FTP.Initialize("ftp", "ftpperso.free.fr", 21, "pmc.ftp", "soline")
End If
FTP.List("/")
End Sub
Sub FTP_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
If Success == False Then
Log(LastException.Message)
Else
For i = 0 To Files.Length - 1
Log(Files(i).Name)
Next
For i = 0 To Folders.Length - 1
Log(Folders(i).Name)
Next
End If
End Sub