Search string Text File No FSO

[rebelscum0000]

Dear all,

How to read an entire txt file in order to serch for a string without
using FSO?

Thanks in advance

Regards
Antonio Macias

 

[Douglas J. Steele]

Dim intFile As Integer
Dim strBuffer As String
Dim strFile As String

strFile = "C:\MyFolder\MyFile.txt"
strBuffer = Space(FileLen(strFile))
intFile = FreeFile()
Open strFile For Binary Access Read As intFIle
Get #intFile, , strBuffer
Close #intFile

strBuffer will now contain the entire content of the file.