🚀 go-pugleaf

Mi scuso per averti risposto male ma ti assicuro che il codice funziona.....
se tu crei un file con su scritto:
riga 1
riga 2
riga 3
riga 4
riga 5
riga 6
riga 7
riga 8
riga 9
lo chiami fileprov
lo salvi
copia il codice seguente:

Dim TextLine
Open App.Path & "\FILEPROV" For Input As #1   ' Apre il file.
    Do While Not EOF(1)   ' Ripete fino alla fine del file.
    Line Input #1, TextLine   ' Assegna la riga a una variabile.
    If conta > 6 Then
             Debug.Print TextLine          ' Scrive nella  finestra 
Immediata.
    End If
    conta = conta + 1
 Loop
 Close #1   ' Chiude il file.

Lo incolli in un nuovo progetto nella routine formload
vedrai che funziona e ti fara' vedere nella finestra di debug:
riga 8
riga 9
 ed e' normalissimo che ti faccia vedere solo la riga8 e la riga9.
anzi tagliamo la testa al toro.....
www.infoportal.it/esempio.zip
piu' di cosi' non so che fare...


"Brian" <brian@email.it> ha scritto nel messaggio 
news:jb%ag.384$mJ1.271@tornado.fastwebnet.it...
> ciao ragazzi, volevo chiedervi come faccio a copiare solo dalla settima 
> riga in poi un file:
>
> Open "C:\file.txt" For Output As #1
>
> 'qui vorrei prendere tutto quello che c'e dalla settima riga in poi
>
> close #1
>
> 'qui invece ricopiare i dati presi in un altro file
>
> Grazie
>