Err 7-out of memory, read text file

[dssrun]

I am trying to get the total number of lines in a text file with the code below (The file is about 190,577kb) because i create a progress bar for when I am actually reading the lines with my program so the user knows how far along it is. Is there a better way to read the lines where I do not get this error or is there a better approach to size the incremental widths of my progress bar? Edit: filePathnew is the files that is 190,577kb

iFileNo = FreeFile
            Open filePathNew For Binary As iFileNo
            strFile = Space(LOF(iFileNo)) 'Set file buffer size
            Get iFileNo, , strFile 'Load the text
            Close iFileNo
            'The array holds the file, one line per element
            strArray = Split(strFile, vbNewLine)

[ajetrumpet]

well trying to throw the number of bytes that's in a 190,000K text file into a vb array is probably not a good idea.

I would say a better idea would be to import the file into an access table using transfertext and issuing a domain count on the dataset. That would use about 99% less memory than you're using now.

furthermore, on a side note here, I believe the maximum size that notepad can handle as a stand-alone program is about 150,000K of ascii text, if that.

[ssanfu]

This is what I use to count the lines in a text file for a progress bar. I open the text file and remove any blank lines (or garbage) at the top & bottom of the file before running the code:

<snip>
   Dim FF As Integer
   Dim LineCount As Long
   Dim inpStr As String  'one line of text
   Dim FileToOpen As String  ' name of file


   ' Open file for input.
   FileToOpen = "C:\SomePath\theFileName.txt"
   FF = FreeFile
   Open FileToOpen For Input As #FF

   If (Err.Number <> 0) Then
      MsgBox "Unable to open file. Aborting!!!"
      Close #FF
      Exit Sub
   End If

   ' count lines read
   LineCount = 0

   '-----------------------
   Do While Not EOF(FF)
      Line Input #FF, inpStr
      LineCount = LineCount + 1
   Loop
   '-----------------------
   
   Close #FF
<snip>

[dssrun]

thanks for the reply all. ssanfu, unfortunately i do not have any blank lines.

[ssanfu]

thanks for the reply all. ssanfu, unfortunately i do not have any blank lines.

No blank lines is good. The point is, get the number of lines by reading the file line by line, not by bytes......