[VB6]Conteggio righe di un file

[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