Check number of rows?

[Guest]

I currently have the following code set up which displays a message box if
the csv I'm importing has greater than 256 fields. Is there a way to also
check if the csv has greater than 65,536 rows?

fileLocation = Application.GetOpenFilename("ASCII
(*.csv;*.txt;*.dat),*.csv;*.txt;*.dat,All Files (*.*),*.*")

filein = FreeFile()
Open fileLocation For Input As filein
Line Input #filein, l
If (Len(l) - Len(Replace(l, ",", "")) > 255) Then
MsgBox ("Cannot import, input file has more than 256 fields")
Exit Sub
End If


Thanks

 

[Guest]

1)loop through it and count the number of rows.

2)read it all at once into one variable and count the number of VbCRLF

do 2, then use split to put it in a variable. check the Ubound