working with multiple files

[nootopian]

I would like to have a summary workbook which calculates totals from several files in the same directory.

Ive got this working fine but what i would like is if a new workbook is added to the directory the summary workbook would add this workbook to its calculations.

all the workbooks will have the same format.

perhaps there is a much better way of doing this.

thanks

greg

 

[Al Chara]

Try the following:

    Dim fs, f, f1, fc, i
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("C:My Documents")
    Set fc = f.Files
    For Each f1 In fc
    i = i + 1
    Worksheets("Summary").Range("A" & i).Value = f1.name
    Next

The code searches for all files in a specific directory and puts their names in the Summary worksheet. Edit as needed.

Be aware that a single slash on this message board is represented by a double slash (don't ask me why).
_________________
Hope this helps.
Kind regards, Al.
This message was edited by Al Chara on 2002-04-15 09:08