Sub ftp1_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
If Success = False Then
Log(LastException)
Else
For i = 0 To Folders.Length - 1
Log("Dir: " & Folders(i).Name)
Next
For i = 0 To Files.Length - 1
Log("File1: " & ServerPath & "/" & Files(i).Name & ", " & Files(i).Size & ", " & DateTime.date(Files(i).Timestamp) & " " & DateTime.time(Files(i).Timestamp))
Next
End If
End Sub