salve ragazzi sto creando un exe che esagua un back di certi files da server a server passsando in locale.

sono riuscito a stabilire la connessione con il server e il download di un singolo file funziona, ora pero dovrei riuscire a effettuare il download di determinati files che cominciano tutti per FTPL_

ho pensato a un ciclo for each ma non riesco ad andare avanti.

questo è il pezzo di codice che ho scritto e che non funziona naturalmente!
codice:
Private Sub cmdbackup_Click()  
   Dim bRet As Boolean  
   Dim nomefile As String 
    Dim localfile As String  
   Dim fso, folder, browse_file, file, chiave, valore    
      Set fso = CreateObject("scripting.filesystemobject") 
 Set browse_file = CreateObject("Scripting.Dictionary") 
 Set folder = fso.GetFolder(INICLS.ReadIni(ImpostazioniFile, "PROJECT1", "NOME", "")) 
     ' Controlla se esiste la cartella TEMP altrimenti la crea:       
  If Not (fso.FolderExists(App.path & "\" & "TEMP")) Then            
    fso.CreateFolder (App.path & "\" & "TEMP")     
           messaggio ("La cartella è stata creata")     
    End If           
 localfile = (App.path + "\" + "TEMP")       
   nomefile = ("FTPL_ " & "" & ".ini")       
    For Each file In folder.Files 
DoEvents     
 bRet = FTPcls.D_load(nomefile, localfile)  
  If bRet Then      
   messaggio "download riuscito"   
  Else     
    messaggio "download non riuscito" 
   End If  
Next
 End Sub