Hi Phil

This works in 2007 although it is not clear from your code post what
you want to do. Looks like you are counting the files found so that
is what the following does. Post if you want a more specific reply.

Take care

Marcus

Option Explicit
Sub Open_Txt()
Dim oWbk As Workbook
Dim wb As Workbook
Dim sFil As String
Dim sPath As String
Dim strFullName As String
Dim Cnt As Integer
Dim i As Integer

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Cnt = 0
sPath = "R:\"
ChDir sPath
sFil = Dir("*.csv")

Do While sFil < ""
strFullName = sPath & sFil
sFil = Dir
Cnt = Cnt + 1
Loop
MsgBox Cnt

End Sub