codice:
  strNomeFile = Dir(percorso, vbNormal)
  
  Do While strNomeFile <> ""
    
  ....
    
FineLoop:
    strNomeFile = Dir
  Loop
dovrebbe andare