[VB6]Conteggio righe di un file

[allejo]

allora

il primo punto non ho capito bene
il secondo punto basta che fai una Append invece di Output o Input

Open "tuo file" For Append As #1

il terzo punto vedi codice

Private Sub Command1_Click() 
Dim riga As Integer 
Dim record As String 
Open "tuo file" For Append As #1 
While Not EOF(1) 
riga = riga + 1 'Riga x contare quante righe ci sono
Wend 
Close #1 
End Sub

Spero di essere chiaro