Intanto e' meglio che sia

codice:
...
    Dim percorso_due As String 
    Dim fi As String() 

    Do 
         fi = Directory.GetFiles(Path, "*.txt") 
...