What do you get just using VBA built in Dir() ?

NickHK

"Joel" wrote in message
...
TIA:

When I run code below on one computer works fine (cycles through all files
in the folder once)...another computer the code opens and cycles through
all
files in the folder but opens the first file a second time and then stops.
If I delete the first file in the folder, all is OK, the code cycles
through
all files once and stops. The files in the folder are created and
exported
from Access.

Same versions of software (2003) and windows on both computers. How can
this be???

Thanks,

Joel

Sub OpnFilesNew()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("c:\Copper") 'change directory
For Each objFile In objFolder.Files
If objFile.Type = "Microsoft Excel Worksheet" Then
Workbooks.Open Filename:=objFolder.Path & "\" & objFile.Name

'do stuff

Workbooks(objFile.Name).Save
Workbooks(objFile.Name).Close True 'saves changes
End If
Next
End Sub