Sub smb_ListCompleted (Url As String, Success As Boolean, Entries() As SMBFile)
If Success = True Then
PrendiFile (Entries, Url)
Else
Log(LastException.Message)
btExit_Click
End If
End Sub
'
Private Sub PrendiFile (elenco() As SMBFile, url As String)
For i = 0 To elenco.Length - 1
Dim nomefile As String = elenco(i).Name
smb.DownloadFile(url, nomefile, cartellaAndroid, nomefile)
wait for smb_DownloadCompleted (url As String, RemoteFile As String, Success As Boolean)
Next
scriviDati
End Sub