Renaming lots of folders different names...

[Dan1000]

Is there a short cut to renaming lots of folders under one folder?

 

[Weaver]

Is there a logical pattern to or connection between the new/old names?

Do you have a list in an excel spreadsheet maybe?

Folders can be renamed programmatically in a number of ways, so long as none of the files in them are open.

 

[Dan1000]

No connection
...create folders then rename the folders to different folder names. The folder list is likely to be large (500 different folder names plus).

 

[Weaver]

So you want to make a set of new folders within a pre-existing folder?

If so, the following code might help

Sub makeFolders()
    mainfolder = "c:\testfolder\"
    For Each cel In ActiveSheet.Range("A1", Cells(Rows.Count, "A").End(xlUp))
        MkDir mainfolder & cel.Value
    Next
End Sub

If you set mainfolder to the location you want all your new folders to be created and create a sheet where column A contains a list of the folder names, then this will create those folders.
There's no error checking, so if there are any characters that aren't allowed in file names, it'll fall over.
Test it in a testfolder like mine to make sure it does what you want.

 

[northdakota103a]

This didn't work for me. I named a folder "testfolder" on my desktop, then I added test spreadsheet on the desktop with a list of names in A. I tried to run the macro to create folders in the testfolder with all the names, but I get a path not found error or a run time error. What's that about?

 

[northdakota103a]

Actually it worked for A1 only ,but I have a list of names I want folders for in A1 thru A123. How can I fix this?

 

[Dan1000]

excelR8R

have you tested this? Debug launches indicating an error in 'MkDir mainfolder & cel.Value' line,

regards

 

[VoG]

The code works fine for me.

 

[Dan1000]

Checked through more thoroughly and found one or two errors...space in folder name ie 'test folder' and duplicate names in list. Code is sensitive...is there any error checking code that can be included? and can this code be made to create folders from more than one list of names at a time?

Regards

 

[Dan1000]

ExcelR8R and VoG

thanks for your help with this,


Regards