Re: Getting count of rows in a text file -- best approach?

On Thu, 27 Apr 2017 17:12:49 +0200, "Fernando D. Bozzo" fdbozzo@gmail.com wrote:

Hi Mike:

A very fast method is using the FileSystemObject:

loFSO = CREATEOBJECT("Scripting.FileSystemObject") loFile1 = loFSO.OpenTextFile(lcArchivo1, 1)

Look at the syntax on Microsoft web site for the read method. It does not have the limitation of VFP's fread/fgets

loFSO = createobject("Scripting.FileSystemObject")

loFile = loFSO.OpenTextFile(m.filename, 8, .f.) ? loFile.Line -1

This method overcome VFP memory / file size limits.

Source: http://stackoverflow.com/questions/7416553/function-to-count-number-of-lines...