Create folders

[feed99]

Hi

Im trying to create folders based upon a list names inputted under one column (Column B for example). The names in the list are repeated and I dont want to create an individual folder for each entry. The list varies in length for each task and is therefore is not fixed.

I found one thread but only for specified ranges unfortunantly

Any ideas, VB not strong

thanks

 

[jasonb75]

Welcome to the board!

Try this code for what you need, note that the code will create the new folders directly to the C drive, so for example if your first entry in column B was feed99 then your folder would be C:\feed99.

You will need to change this to the folder path where you want the new folders created, for example C:\Files\Test\feed99 (only edit the red text in the code).

Also note that the path specified (the red bit) must already exist for the folders to be created in or the code will fail.

Sub createfolder()
On Error GoTo Line1
    
For a = 2 To Cells(Rows.Count, "B").End(xlUp).Row
myfolder = "C:\" & Range("B" & a).Text
    If Not Dir(myfolder) = vbNullString Then
    GoTo Line1
    Else
     MkDir (myfolder)
    End If
Line1:
Next
End Sub

Hope this helps

 

[feed99]

Thanks Jason,

Its creates the folders fine but there seems to be an issue with duplicated references. Ive looked at the code but it bugs out if a folder has already been created. I cant see why this happens. Any ideas?

Feed99

Welcome to the board!

Try this code for what you need, note that the code will create the new folders directly to the C drive, so for example if your first entry in column B was feed99 then your folder would be C:\feed99.

You will need to change this to the folder path where you want the new folders created, for example C:\Files\Test\feed99 (only edit the red text in the code).

Also note that the path specified (the red bit) must already exist for the folders to be created in or the code will fail.

Sub createfolder()
On Error GoTo Line1
 
For a = 2 To Cells(Rows.Count, "B").End(xlUp).Row
myfolder = "C:\" & Range("B" & a).Text
    If Not Dir(myfolder) = vbNullString Then
    GoTo Line1
    Else
     MkDir (myfolder)
    End If
Line1:
Next
End Sub

Hope this helps

 

[Norie]

feed99

Why wouldn't it 'bug' out?

Have you tried manually creating >1 folder in the same directory?

If you do then I've a feeling Windows might throw up an error message.

 

[jasonb75]

Oops, sorry feed, for some reason it worked for me and didn't trip, not sure why cos i had a duplicate name in the range i was using, but tried it now and tripped it with a few more entries in the list.

This code is doing the job on my new test sheet without tripping so hopefully will work for you as well.

Sub CreateFolder()
  For a = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        myfolder = "C:\" & Range("B" & a).Text
    If Not CreateObject("Scripting.FileSystemObject").folderexists(myfolder) Then MkDir (myfolder)
  Next
End Sub

code sourced from Tek-Tips then changed to suit what you need

 

[feed99]

Thanks Jason.