Adding FileSystem Object to my current macro

I was getting help from Jakobshavn (Thanks Again) on working on the code on this link Orginal Thread

here is the code

Please Login or Register  to view this content.

How can I get this to read every folder from a main folder and list the number of contents in the sub folder?
Example X:\YYZ = Main Folder
1 = sub folder
12 files
2 = sub folder
1 file
3 = sub folder
101 files

Please Login or Register  to view this content.

I have tried what you put and it does not work with any of my code. I also have run time enabled. From this point I am lost.

If I run Macro1 in this code:

Please Login or Register  to view this content.

I get the contents of E:\Data subfolders and number of files as a message box. If I run macro1 in this code, the data is assigned to cell A1 of the activesheet.

Please Login or Register  to view this content.

Does this work for you if you assign a valid path, if so - what do you then want to do with the information?

Ok this is getting better but what i need this code to do is open the get folder window so i can select the folder that contains all of the patient folders then list the name of the patient in one cell and then the contents of that patients folder in the next cell. Right now it puts everything into one cell and you cant really read it.

I have been working on similar code that is a little different. I will post it in a few. Ultimately in the end I want this to be put into the current code I have so my boss has the break down of every patient and number of x rays in each folder.

You just need to be a little more specific, I just gave you a general function as I didn't know what you wanted to do with the data... This will list in columns A and B, starting in the last blank cell in column A

Please Login or Register  to view this content.

Awesome!!! Thank you so much Rep Added!!!! Now i just need to figure out how to add it to my current code. Thank you again!!!!