Just make the subfolders in order:

on error resume next 'in case the folder already exists
mkdir "C:\mainfolder"
mkdir "C:\mainfolder\subfolder1"
mkdir "C:\mainfolder\subfolder1\newsubfolder1"
mkdir "C:\mainfolder\subfolder1\newsubfolder2"
mkdir "C:\mainfolder\subfolder2"
mkdir "C:\mainfolder\subfolder2\newsubfolder1"
mkdir "C:\mainfolder\subfolder2\newsubfolder2"
....
on error goto 0



ScottMsp wrote:

Hello and thanks for reading my question.

I need some VBA programming help.

I have a main folder with subfolders in it. I want to add a new subfolder
to each subfolder in the directory.

It would look something like this

Main Folder
Subfolder1
NewSubfolder
Subfolder2
NewSubfolder
Subfolder3
NewSubfolder
Subfolder4
NewSubfolder

I was able to use this VBA to do it for one folder, but I need it to look
through all Subfolders

MkDir ("C:\MainFolder\Subfolder1\Subfolder1.1")

How do I look through each subfolder and add a new subfolder under each
subfolder?

Thanks in advance.

--

Dave Peterson