VBA Code to Rename Folders

[jflst]

Hi All,

I'm working on a code to rename 1000s of folders and I'm afraid that I've hit a dead end. I'm not entirely sure how to proceed. I have an excel document set up like this:

Column B: Original File Source
Column C: New File Source

How do I code somethng that renames every folder in a parent folder? Any help would be much appreciated. My code is below:

Sub FolderRename()
    'Declaring variables
Dim complete_pathof_folder As String, state As String
For i = 2 To Sheets("Sheet1").Range("B2").End(x1Down).Row
  
  'Variable values
        filesource = Cells(i, 2)
        newfilesource = Cells(i, 6)
       
'Renames Original Folder Name
Name completepathof As newfolderpath
Next i
End Sub

[excelliot]

what error you are getting using this code?

[jflst]

I get "Run-time error '1004': Application-defined or object-defined error" message when I run the code--it highlights "For i=2 to Sheets..." when I try to debug it. Any thoughts?

[excelliot]

did you got succes in renaming any of folder? i guess may be folder is not there coz u already renamed it ??

[jflst]

not with this code, no, but the folder names are not changed

[snb]

Sub M_snb()
   sn = Cells(1, 2).Resize(Cells(Rows.Count, 2).End(xlUp).Row, 2)
   
   For j = 1 To UBound(sn)
      If Dir(sn(j, 1), 16) <> "" and Dir(sn(j, 2), 16) = "" Then Name sn(j, 1) As sn(j, 2)
   Next
End Sub

[excelliot]

not with this code, no, but the folder names are not changed

check for special characters in string name..i dont see any error in code...

[jflst]

For i = 2 To Sheets("Rename File").Range("B2").End(x1Down).Row

I need to debug this. Any thoughts?

[SamT]

Hidden Typo. Add "Option Explicit" at the top of your code page and Debug >> Compile will highlight it for you.

Hint: there is no Lower Case "L" in the following

.End(x1Down).Row

[jflst]

now it says I need to define "i" for code line "For i = 2"...How do I define "i"?

[SamT]

dim i as Long

[jflst]

This is what I have now--the message "Compile Error: Variabel not defined" pops up and when I debug it it highlights "(xDown). What's wrong with this? Is the iDim in the right place--and do I need to define variables "filesource" and "newfilesource"?

Option Explicit
Sub Folder_Rename1()
    'Declaring variables
Dim filesource As String
Dim newfilesource As String
Dim i As Long
For i = 2 To Sheets("Rename File").Range("B2").End(xDown).Row
  
  'Variable values
        filesource = Cells(i, 2)
        newfilesource = Cells(i, 6)
       
'Renames Original Folder Name
Name filesource As newfilesource
Next i
End Sub
  
    'Possible code that works
  'Repeats Code Until an Empty Cell is Reached
        'Do Until IsEmpty(Cells(iRow, 1))
        'dCellValues(iRow) = Cells(iRow, 2).Value
        'iRow = iRow + 1
        'Loop

[Tom Jones]

You wrote so
For i = 2 To Sheets("Rename File").Range("B2").End(xDown).Row
.... and had so
For i = 2 To Sheets("Rename File").Range("B2").End(xlDown).Row

(xlDown)

[Kenneth Hobs]

Syntax error. Change xDown to XLDown.

[snb]

Did you overlook http://www.vbaexpress.com/forum/show...l=1#post326710 ?

[SamT]

snb's code won't work with Option Explicit, but it will rename all your files really fast. To use it, just comment out the "Option Explicit" line.

[jflst]

If my excel file is set up as follows:

Column B: old file source
Column F: new file source

Where do I make adjustments to snb's code? And does it rename all files until an empty row?

Sub M_snb()
    sn = Cells(1, 2).Resize(Cells(Rows.Count, 2).End(xlUp).Row, 2)
     
    For j = 1 To UBound(sn)
        If Dir(sn(j, 1), 16) <> "" And Dir(sn(j, 2), 16) = "" Then Name sn(j, 1) As sn(j, 2)
    Next
End Sub

[SamT]

try to do the first line in his code, then I do the second line.

[jflst]

Sub M_snb()

sn = Cells(2, 2).Resize(Cells(Rows.Count, 2).End(xlUp).Row, 2)

Cells(2,2) refers to the row, column, which in this cse would be B2. I'm not really sure what the Dir string (second line) does. If I'm correct, it's a directory code but I don't knwo what it does.

[snb]

Also your VBEditor has an F1 button : help.

Sub M_snb() 
    sn = Cells(1, 2).Resize(Cells(Rows.Count, 2).End(xlUp).Row, 5) 
     
    For j = 1 To UBound(sn) 
        If Dir(sn(j, 1), 16) <> "" And Dir(sn(j, 5), 16) = "" Then Name sn(j, 1) As sn(j, 5) 
    Next 
End Sub