If FTP1.IsInitialized Then
FTP1.Close
End If
FTP1.Initialize("ftp","xxxxxxx",port,"xxxxxx","xxxxx")
FTP1.UseSSL = False
FTP1.UseSSLExplicit=False
FTP1.PassiveMode = True
FTP1.TimeoutMs = 5000
Dim obj As Object= FTP1.List($"/${FolderName}"$)
Wait For (obj) ftp_ListCompleted(ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)