B4J Question problem with FTP_List event

[Blueforcer]

Hello Friends,

when i call the myFTP.List function, the MyFTP_ListCompleted event will be called 42 times. (Log("Test")). But why? i need only one event to start the download from the listed files.

myFTP.Initialize("MyFTP", IP , 21, "service", "xxxx")
myFTP.List("/FlashDisk")

Sub MyFTP_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
    If Success Then
   
        Dim i As Int
        Dim SubFolder As String
        SubFolder = ServerPath.Replace(DownloadFolderLocation.Replace(" ","_"), "") '

        For i = 0 To Folders.Length -1                                              
            If Folders(i).Name <> "." And Folders(i).Name <> ".." Then               
                myFTP.List(ServerPath & "/" & Folders(i).name)     
            End If
        Next

        If Files.Length >= 1 Then                                                   
            AddFileToDownloadList(ServerPath, File.DirApp &  "/" & currentIP & "/" & SubFolder, Files)    'add the files to the queue (list) to download
        End If
        btnDownload.Enabled = True
        pbProgress.Visible = False
  
    Else
         logWindow.text = "Online folder not found, check spelling..." & ServerPath
    End If

Log("Test")

End Sub

 

[Erel]

You are calling myFTP.List again for each folder.

 

[Blueforcer]

I have just seen too . can I find out when everything is finished ?

 

[Erel]

1. Move this code to a service.
2. Add a process global variable named NumberOfTasks.
3. Increase it by one each time you call FTP.List
4. Decrease it by one at the end of ListCompleted event. If it is 0 then you have completed listing all folders.

 

[Blueforcer]

perfect! it works! many thanks