Error to rename folder using Name property

[YingFa]

Hello, I have the below code to rename an existing folder but it gives me error '53 file not found when I run it. When I debug, it highlights me this line ----> Name OldFolderName As NewFolderName. Inside the existing folder is a PDF file that I do not need to change the name. I just need to change or rename the existing folder but it keeps giving me error. Can I please have your help?

I av ethe following

Private Sub CommandButton1_Click()

'Update Folder Name
If Me.ComboBox1.Value = "" Then
MsgBox "Part# can Not be Blank!", vbExclamation, "Part#"
Exit Sub
End If

Dim Part# As String
Part# = ComboBox1.Value
Dim OldFolderName As String, NewFolderName As String
Dim rowselect As Long

Application.ScreenUpdating = False
rowselect = Me.ComboBox1.ListIndex + 1
Sheets("Data").Select
Cells(rowselect, 15) = Me.TextBox2.Value

OldFolderName = "Z:\TWE\Project\Folders" & Part#
NewFolderName = "Z:\TWE\Project\Folders" & Part# & "-Done"

Name OldFolderName As NewFolderName

Application.ScreenUpdating = True
    
End Sub

Thank you.

 

[YasserKhalil]

I have tried the code and works well .. I have changed Z to C as I have no Z drive

Private Sub CommandButton1_Click()
    Dim part As String, oldFolderName As String, newFolderName As String, rowSelect As Long

    If Me.ComboBox1.Value = "" Then
        MsgBox "Part# Can Not Be Blank!", vbExclamation, "Part#"
        Exit Sub
    End If

    part = ComboBox1.Value

    Application.ScreenUpdating = False
        rowSelect = Me.ComboBox1.ListIndex + 1
        Sheets("Data").Select
        Cells(rowSelect, 15) = Me.TextBox2.Value
    
        oldFolderName = "C:\TWE\Project\Folders" & part
        newFolderName = "C:\TWE\Project\Folders" & part & "-Done"
    
        Name oldFolderName As newFolderName
    Application.ScreenUpdating = True
End Sub

I have fixed the variable part# as this is string variable not double (or declare it as double if this suits you)

 

[YingFa]

I have tried the code and works well .. I have changed Z to C as I have no Z drive

Private Sub CommandButton1_Click()
    Dim part As String, oldFolderName As String, newFolderName As String, rowSelect As Long

    If Me.ComboBox1.Value = "" Then
        MsgBox "Part# Can Not Be Blank!", vbExclamation, "Part#"
        Exit Sub
    End If

    part = ComboBox1.Value

    Application.ScreenUpdating = False
        rowSelect = Me.ComboBox1.ListIndex + 1
        Sheets("Data").Select
        Cells(rowSelect, 15) = Me.TextBox2.Value
   
        oldFolderName = "C:\TWE\Project\Folders" & part
        newFolderName = "C:\TWE\Project\Folders" & part & "-Done"
   
        Name oldFolderName As newFolderName
    Application.ScreenUpdating = True
End Sub

I have fixed the variable part# as this is string variable not double (or declare it as double if this suits you)

I have tried your code and it gives me the same error. Run time error 53' file not found. I have checked and the folder exist and a pdf file with the same name exist inside. The error keeps highlighting me this line ---> Name oldFolderName As newFolderName would it be possible that I have some property deactivated? I do not know what to try to make it work

 

[Fluff]

Is "Part" a subfolder inside "Z:\TWE\Project\Folders"?

 

[YingFa]

Is "Part" a subfolder inside "Z:\TWE\Project\Folders"?

Part is the variable name of the folder that depends on combobox1. For example PRO-001, PRO-002, etc. It is a sequential number that increases by 1 everytime an entry is created. The name of the folder is varies. In this case the folder already exist but I want to rename it as PRO-001-Done after I finish all my process.

 

[Fluff]

What is the exact path of that folder?

 

[YingFa]

C:\TWE\Project\Folders And inside folders is the folder that is created by the sequential numbers PRO-001, 002, etc

 

[Fluff]

Can you please show the exact path for the folder you are trying to rename

 

[YingFa]

Can you please show the exact path for the folder you are trying to rename

The exact path is this Z:\TWE\Project\Folders
The folder is inside the folder "Folders" in that path. Inside "Folders" there are more subfolders.

 

[YingFa]

Basically the folder that I want to rename is a subfolder of Folders.