Get name of subfolder

How can I get the name of a subfolder? I have a main folder that has subfolders named Photo_A, Photo_B, Photo_C, etc. Each subfolder will contain the same amount of files named according to their folder i.e Photo_A1, Photo_A2, Photo_B1, Photo_B2, etc. What I need to do is generate a list of all the file locations in all the folders. The naming convention of the folders and files will remain the same.


Result:
F:\New folder\30\Photo_A\JPEG\Photo_A1.jpg
F:\New folder\30\Photo_B\JPEG\Photo_B1.jpg
F:\New folder\30\Photo_C\JPEG\Photo_C1.jpg
F:\New folder\30\Photo_A\JPEG\Photo_A2.jpg
F:\New folder\30\Photo_B\JPEG\Photo_B2.jpg
F:\New folder\30\Photo_C\JPEG\Photo_C2.jpg

etc.....

Steps of what I'm trying to do:

1. Get the name of a subfolder, and get the portion of the string before _. In this case it would be "Photo".
2. Look in one of the "Photo" folders and count the number of jpg files.
3. I would then be able to generate a list in a loop for all the file locations.

I thought it would be as simple as
SourceFolder.subFolders.Item(1).Name

I can't seem to figure out how to get the name of a subfolder and the file count in that folder.

I know you can use a loop to count the number of subfolders. Looking in the properties of the main source folder, I can expand the SubFolders and see the count as 3. How can I do something similar for the subfolders?

The code works as far as listing all the files but it does not keep the order in which I need them as shown in my example. This list of files is used for zipping. My zip macro will take, in this example, the locations of 3 files which are to be zipped together....

F:\New folder\30\Photo_A\JPEG\Photo_A1.jpg
F:\New folder\30\Photo_B\JPEG\Photo_B1.jpg
F:\New folder\30\Photo_C\JPEG\Photo_C1.jpg

Then it takes the next 3 file locations. I have developed code to get this but I would like to know if there is a way to get the name of a sub folder. I can get the name within this loop

Please Login or Register  to view this content.

But I can't do it outside of it.

Edit:
I just realized that since the sub folder name is derived from the parent folder name, I can just use the parent folder name.

Hello roldy,

Try this macro...

Please Login or Register  to view this content.