Ah ma quindi
codice:
Open Percorso For Output as #1
Print #1, str
Close #1
deve essere messo nel do until altrimenti così come sta messo copia l'intero file nella stringa str...
CIAO