The code (exerpt) below reads the files in a folder and then opens
them one at a time in a loop, however, I get a Run-time Error 1004
stating that the first file could not be found. Frustrating since the
file is specifically identified by name and file extension, so, if it
can be seen/identified, why can't it be opened?

I have only included the steps until the run-time error.

Sub Allocation_Step2()

Dim fso As Object
Dim fsoFiles As Object
Dim fsoFile As Object
Dim wbCurrent As Workbook

Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoFiles = fso.GetFolder("C:\Documents and Settings\eo883d\Desktop
\EE Reports\").Files

If Not fsoFiles Is Nothing Then
For Each fsoFile In fsoFiles
Set wbCurrent = Workbooks.Open(fsoFile.Name, , True)