[vb6] lunghezza file

[visual_b]

C'è un comando che mi permette di sapere quanti dati di un tipo ci sono in un file?

Qualcosa di equivalente a questo, ma in un solo comando, o comunque una soluzione più inteligente:


dim i,numFile as integer
dim frase as string

numFile = FreeFile
On Error GoTo basta
Open App.Path & "\pippo.txt" For Output As numFile
Do While Not EOF(numFile)
Get numFile, ,frase
i=i+1
Loop
msgbox "frasi nel file= "& i
basta:
Close

[matpez]

no, nn c'è altro per fare quello che vuoi tu

[visual_b]

Grazie lo stesso