Creating Folders with VBA

[Angus95]

Hi all,

I have been reading all posts but cant come across the answer.

I am using this code:
Sub createFolders()
Dim fpath As String
Dim i, xc As Integer

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

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

MkDir ("C:\Users\asharpe\OneDrive - ADCO CONSTRUCTIONS PTY LTD\Desktop\Make Folder" & fpath)
If Err.Number <> 0 Then
Err.Clear
End If
Next

End Sub

There appears to be an issue with the line in red.

I am trying to make folders within folders as per the example:

Folder​

Inside​

North​

South​

Park​

Outside​

East​

Dog​

Any ideas?

Thanks in advance.

 

[Yongle]

There appears to be an issue with the line in red

yes there is ...

xc = Range("XFD" & i).End(x[COLOR=#ff0000]1[/COLOR]ToLeft).Column

try using the letter L instead of the number 1

xc = Range("XFD" & i).End(x[COLOR=#ff0000]L[/COLOR]ToLeft).Column

 

[Angus95]

Thanks! I swear it looked like a 1 on the video I saw.

Worked a treat!