Hi

I recently had help in reading the next line of a text file but I am now
having problems in looping through and reading and extracting information in
all of the text files in a specific folder.

The previous help was in reading and extracting on a specific file but i
can't seem to get the looping to work.

Can anyone help me please? Below is the title of my previous discussion.
Frederic

Read the next line in a text file
http://www.microsoft.com/communities...a= wsignin1.0

The untested code below should read through all text files in the
specified directory

Dim strFile As String
'Get first file
strFile = Dir("C:\MyFolder\*.txt")

'Begin Processing
Do While Not Trim(strFile) = ""
'Insert file proccessing here . . . . . .
'Get Next File
strFile = Dir()
Loop


Goshute

thank you for the quick reply. It works perfectly

Frederic.

"goshute" wrote:

The untested code below should read through all text files in the
specified directory

Dim strFile As String
'Get first file
strFile = Dir("C:\MyFolder\*.txt")

'Begin Processing
Do While Not Trim(strFile) = ""
'Insert file proccessing here . . . . . .
'Get Next File
strFile = Dir()
Loop


Goshute
.