FTP.Initialize("FTP", "1.1.1.1", 21, "FTPUser", "FTPPass")
FTP.List("/Folder")
FTP.PassiveMode = True
.
.
.
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