Counting the number of files in a folder.

DominikWells · Mar 19th, 2002, 12:38 PM

I have been trying to develop a macro which will count the number of files in a known directory (defined in a string). I would also like to open these one by one to extract data from them. Anyone know how to do this other than forcing the user to open them one by one using GetOpenFilename?

Al Chara · Mar 19th, 2002, 01:07 PM

Try the following code:

Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:YourPath")
Set fc = f.Files
For Each f1 In fc
Workbooks.Open f1.Path
Next

Subsitute your folder for C:YourFolder. The code finds all files in the folder and opens them.

Mar 19th, 2002, 01:07 PM	#2
Al Chara MrExcel MVP Join Date: Feb 2002 Location: Monterrey, Mexico Posts: 1,433	Try the following code: Dim fs, f, f1, fc Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("C:YourPath") Set fc = f.Files For Each f1 In fc Workbooks.Open f1.Path Next Subsitute your folder for C:YourFolder. The code finds all files in the folder and opens them. __________________ Kind regards, Al Chara

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 19th, 2002, 12:38 PM	#1
DominikWells New Member Join Date: Feb 2002 Posts: 7	I have been trying to develop a macro which will count the number of files in a known directory (defined in a string). I would also like to open these one by one to extract data from them. Anyone know how to do this other than forcing the user to open them one by one using GetOpenFilename?