Help Creating subfolders using a macro

[hkydad]

I have a macro that when run, creates a set of folders in a directory based on information in a spreadhseet. Now what I want to do is create sub-folders based on another column within the same spreadhseet. Here are exapmples of the code and the spreadhseet.

Sub MakeFolders_485BPOS()
Dim xdir As String
Dim fso
Dim lstrow As Long
Dim i As Long
Set fso = CreateObject("Scripting.FileSystemObject")
lstrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To lstrow
xdir = "Y:\Filing_Types\485BPOS\" & Range("A" & i).Value
If Not fso.FolderExists(xdir) Then
fso.CreateFolder (xdir)
End If
Next
Application.ScreenUpdating = True
End Sub

Now once these folders are created, I want to create several subfolders under each of the folders created above. How do I do this?

 

[apo]

HI..

Say you Root Folder is in Column A.. and your sub folder is in column D.. this will create a a Folder named with Column A value and a sub folder within that with column D value as its folder name..

Private Sub CommandButton1_Click()


Dim xdir As String
Dim fso
Dim fsoSub
Dim lstrow As Long
Dim i As Long
Dim xdirsubfolder As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoSub = CreateObject("Scripting.FileSystemObject")
lstrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To lstrow
xdir = "D:\Excel\Test\" & Range("A" & i).Value
xdirsubfolder = "D:\Excel\Test\" & Range("A" & i).Value & "\" & Range("A" & i).Offset(0, 3)


If Not fso.FolderExists(xdir) Then
fso.CreateFolder (xdir)
End If


If Not fsoSub.FolderExists(xdirsubfolder) Then
fsoSub.CreateFolder (xdirsubfolder)
End If


Next
Application.ScreenUpdating = True
End Sub

 

[hkydad]

Hi...
Thank you for this code. It works perfectly. I even like the fact that the code ignores duplicate lines in the spreadhseet so that I only end up with one set of folders.

This is exactly what I was looking for so thank you again for your help.

 

[apo]

Hi.. I am glad that it helped.. one minor thing.. next time when posting code.. try to use the Code tags option (available when you Select the "Go Advanced" option on your reply/post)..