Error 53 File not found trying to loop through txt files

[sharky12345]

I'm trying to loop through a folder full of txt files and extract the information from within but I'm getting an error 53, file not found, and I don't know why.

This is what I have so far:

directory = "\\Saved Folder\Data Files\To be imported\"
FileName = Dir(directory & "\*Data*.txt")
Do While FileName <> ""
FileName = Left(FileName, Len(FileName) - 4)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(FileName, ForReading)


Do Until objTextFile.AtEndOfStream

strComputer = objTextFile.ReadLine

MsgBox strComputer

Loop

the code fails on this line:

Set objTextFile = objFSO.OpenTextFile(FileName, ForReading)

Can anyone advise why this won't work please?

 

[mole999]

ForReading might be replaced with 1

is objTextFile being dimmed as String ?

just my first thoughts

 

[sharky12345]

Thanks - tried changing ForReading to 1 and it makes no difference. I hadn't declared objTextFile but once I had I get a compile error 'object required'

 

[mole999]

was it Dim objTextFile As String or Dim objTextFile , the second would seem to be preferable

> OpenTextFile method (Visual Basic for Applications)

 

[sharky12345]

Ok mole999, I'll try Dim objTextFile and see if that works. Many thanks!