Application.FileSearch Excel 2010

Hello all,
I had a code on excel 2003 which opened the workbooks done something closed them and then moved to the next one. this was the code:

Please Login or Register  to view this content.

Now I am using excel 2010 and I found this helpful code posted by "RoyUK" and replaced my code.

Please Login or Register  to view this content.

It finds files in the activeworkbook folder, open it, do what i want it to do, BUT instead of moving to the next file after closing it. It just reopen the same file and try to do the same stuff again.

How should I change it so that it will move to the file in the folder ?
Thanks!

It doesn't work. Still keeps opening the same file after it has worked and closed it.

The way I am doing it is like this :

sPath = ActiveWorkbook.Path & "\" ' to be adapted
sFil = Dir("*.xls")

Do While sFil <> ""
With Workbooks.Open(sPath & sFil)
Call Control
.Close True
End With
sFil = Dir
Loop

what is wrong in it ?

yes it shows the list with the files that are located inside the foler.
can't understand why it keeps opening dong the procedure and them reopening the file again.

I ended up using another method. the File System Object.
here is what i got.

Sub Openfiles
Dim FSO As Scripting.FileSystemObject
Dim folder As Scripting.folder, file As Scripting.file, wb As Workbook
Dim directory As String

directory = ActiveWorkbook.Path

Set FSO = CreateObject("Scripting.FileSystemObject")
Set folder = FSO.GetFolder(directory)

For Each file In folder.Files
Workbooks.Open file
Call Control 'call the subs that i want
ActiveWorkbook.Close True
Next file

End Sub