Adding FileSystem Object to my current macro

[dark91zc]

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

[ragulduy]

Please Login or Register  to view this content.

[dark91zc]

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.

[ragulduy]

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?

[dark91zc]

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.

[dark91zc]

This is the code I have.
What it does is it imports the name of every folder then splits it by Last name, First name, Record number,and Date of Birth. It also sorts the record number in Terminal Digit so it reads the last 2 number first then the middle 2 numbers then the last 4 numbers and puts them in order from there.

With this new code i want to be able to add a X-ray count Column so it lists the files per folder also right after the Date of Birth.

Hope this helps some.

Please Login or Register  to view this content.

[ragulduy]

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.

[dark91zc]

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!!!!