Sub FTPFileList
FTP.Initialize("FTP", "Dell-R230", 21, "FTPUser", "B4XFTP123.") 'FTP login details - Server
Dim SF As Object = FTP.List("/")
Wait For (SF) FTP_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
If Success Then
For Each FTPFile As FTPEntry In Files
Log(FTPFile.Name)
Next
End If
FTP.Close
End Sub