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)

Excel VBA formulated the question :
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)

Is the file an Excel workbook?

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

The name property returns only the name of file and to open we need to
specify the path.So use Path property of File object also.

It happens that Javed formulated :
The name property returns only the name of file and to open we need to
specify the path.So use Path property of File object also.

Thanks for that! I did miss that important point as I'm not a user of
FSO for getting file locations. Makes perfect sense!

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc