[VB6]Conteggio righe di un file

[hacker_nait]

In un programma apro un file in lettura e in scrittura con questi comand1:

Open "file.txt" For Input As #1
Open "file.txt" For Output As #1

Vorrei sapere le seguenti cose:

1)Quali comandi possono inserire in una variabile il testo "" se il file non esiste?
2)Quale comando posso utilizzare per inserire in una variabile il contenuto di un file a più righe?
3)Come posso conteggiare il numero di righe di un file?

Grazie anticipatamente

[hacker_nait]

up:quote:

[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

[hacker_nait]

Sei stato chiarissimo.

Al punto 1) intendevo: se apro un file non esistente, come faccio a non fare errore??

[GudFella]

Originariamente inviato da hacker_nait
se apro un file non esistente, come faccio a non fare errore??

prima di aprirlo
verifica che esista:

FileEx = Dir(nomefile, vbDirectory)
If FileEx <> "" Then
esiste
Else
non esiste
End If