Excel VBA to rename filesname or folder

[harky]

Hi Any idea why this not working? :D

Sub ChangeInFolder()
Dim OldName As String
Dim NewName As String
Dim LastRow As Long
Dim i As Long
LastRow = Range("A65536").End(xlUp).Row


For i = 1 To LastRow
    OldName = Range("A" & i).Value
    NewName = Range("C" & i).Value
    Name OldName As NewName
    
Next i


Application.ScreenUpdating = True
End Sub

 

[Paul Ked]

Check that the OldNames are valid (eg C:\Users\HarryPotter\Documents\Wizard.xlsm) and that they exist.
Check that the NewNames are valid and they don't exist

Edit: Also check you have permission to write to the location(s)

 

[harky]

oh thanks. Just notice is dont rename folder.

I want to rename folder not file in the folder

Check that the OldNames are valid (eg C:\Users\HarryPotter\Documents\Wizard.xlsm) and that they exist.
Check that the NewNames are valid and they don't exist

Edit: Also check you have permission to write to the location(s)

 

[Paul Ked]

The folders should be renamed as long as the names are valid and no files are in use in them.

 

[harky]

i mean the code dont work for rename folder

i put

A
C:\Users\ABC\Desktop\TEST\TEST1\


C
C:\Users\ABC\Desktop\TEST\ABC1\

it dont work.

The folders should be renamed as long as the names are valid and no files are in use in them.

 

[harky]

i found another code.

It only work for row 1 only

Sub rename_folder()


Dim old_name, new_name As String


For I = 2 To Sheets(1).Range("A1").End(xlDown).Row


new_name = Left(Sheets(1).Cells(I, 1).Value, Len(Sheets(1).Cells(I, 1).Value) - Len(Sheets(1).Cells(I, 2).Value))


new_name = new_name & Sheets(1).Cells(I, 3).Value


old_name = Sheets(1).Cells(I, 1).Value
Name old_name As new_name


Next I


End Sub

 

[Paul Ked]

They are not valid folders with a backslash at the end.

Try C:\Users\ABC\Desktop\TEST\TEST1 to C:\Users\ABC\Desktop\TEST\ABC1

 

[harky]

cannot. has error

@ Name OldName As NewName

They are not valid folders with a backslash at the end.

Try C:\Users\ABC\Desktop\TEST\TEST1 to C:\Users\ABC\Desktop\TEST\ABC1

 

[Paul Ked]

Then it is probably a permissions issue, works fine for me.

 

[Paul Ked]

Don't use the code in post #6 , it's wrong for what you are trying to do. Stick with the original code.