How to fix my code to make a folders and subfolders?

[Rev12]

Hi!

I am trying to code of making a folders and sub-folders from an Excel.

Yet I could not figure out how to come up with the result as illustrated below

RESULT:

Folder Sub-folders

6. June 6-Jun_Morning
6-Jun_Lunch
6-Jun_Evening

I have the code below, it works somehow but only the sub-folders 6-Jun_Morning are populated inside the Folder 6.Jun
the others are outside from Folder 6. Jun.

Sub createfolders()
Dim fpath As String
Dim i, xc As Integer

On Error Resume Next

For i = 1 To ActiveSheet.UsedRange.Rows.Count
xc = Range("XFD" & i).End(xlToLeft).Column

If xc = 1 Then
fpath = Cells(i, xc).Value

Else
fpath = Cells(Cells(i, xc).End(xlUp).Row, xc - 1).Value & "/" & Cells(i, xc).Value

End If
MkDir ("C:\Users\HP\Desktop\TP MASTER\Back Up\" & fpath)

If Error.Number <> 0 Then
Err.Clear

End If
Next

End Sub

------

I have attached my Excel for a reference.

Please any help is really appreciated.

Regards,
Rev12

[LeoTaxi]

Start with this

change

Please Login or Register  to view this content.

To

Please Login or Register  to view this content.

Kind regards
Leo

[Rev12]

Thanks for any help, yet I could not get to the result I want.

That my Folder should have a sub folders as below

Folder Sub Folders
6.Jun 6_Jun-Morning
6_Jun-Lunch
6_Jun-Evening

Any help please.

Thanks in advance,
Rev12

[LeoTaxi]

Try

Please Login or Register  to view this content.

Kind regards
Leo

[Rev12]

Try

Please Login or Register  to view this content.

Kind regards
Leo

Yes thanks it works will but a little change I need another folders where my sub-folders should be save then as below


Main Folder Main Sub Folder sub Folders

6.June 6_Jun-2018 6_Jun-Morning
6_Jun-Lunch
6_Jun-Evening

How do I modify the code?

thanks again,
Rev12

[LeoTaxi]

compris pas



Cordialement
Leo

[Rev12]

is there another way to modify the code because I made only a minor changes??


Main Folder Main Sub Folder sub Folders

6.June 6_Jun-2018 6_Jun-Morning
6_Jun-Lunch
6_Jun-Evening


thanks again,
Rev12

[LeoTaxi]

You can make any dir with this

Please Login or Register  to view this content.

just see all necessary is in mypath

Kind regards
Leo

[Rev12]

Thanks anyways, appreciated.