Renaming pdf files in a folder

[mzithoboss]

I copied below code to rename my pdf's in a folder and got the following three errors
-Expression is not a method.
-Method arguments must be enclosed in parentheses.
-Comma, ')', or a valid expression continuation expected.
The line that is being rejected is highlighted in code

CODE///

Sub MyRenameFiles()




Dim MyFolder As String
Dim MyFile As String
Dim i As Long
Dim MyOldFile As String
Dim MyNewFile As String
Dim Name As Attribute




MyFolder = "C:\Protea"
MyFile = Dir(MyFolder & "\*.pdf")


Do While MyFile <> ""
i = i + 1
MyOldFile = MyFolder & "" & MyFile
MyNewFile = MyFolder & "" & i & ".pdf"
Name MyOldFile As MyNewFile
MyFile = Dir()
Loop
End Sub

 

[chicagocomputerclasses]

Which version of office do you have?

 

[mzithoboss]

2016

 

[chicagocomputerclasses]

Windows?

 

[chicagocomputerclasses]

Try this

Sub MyRenameFiles()

    Dim MyFolder As String
    Dim MyFile As String
    Dim i As Long
    Dim MyOldFile As String
    Dim MyNewFile As String
    
    Sep = Application.PathSeparator
    
    
    MyFolder = "C:\Protea"
    MyFile = Dir(MyFolder & "\*.pdf")
    
    
    Do While MyFile <> ""
    i = i + 1
    MyOldFile = MyFolder & Sep & MyFile
    MyNewFile = MyFolder & Sep & i & ".pdf"
    Name MyOldFile As MyNewFile
    MyFile = Dir()
    Loop


End Sub

 

[mzithoboss]

Try this

Sub MyRenameFiles()

    Dim MyFolder As String
    Dim MyFile As String
    Dim i As Long
    Dim MyOldFile As String
    Dim MyNewFile As String
    
    Sep = Application.PathSeparator
    
    
    MyFolder = "C:\Protea"
    MyFile = Dir(MyFolder & "\*.pdf")
    
    
    Do While MyFile <> ""
    i = i + 1
    MyOldFile = MyFolder & Sep & MyFile
    MyNewFile = MyFolder & Sep & i & ".pdf"
    Name MyOldFile As MyNewFile
    MyFile = Dir()
    Loop


End Sub

Thank you. I used the proposed code and got this new error. The previous errors are still there.

Error 1 'PathSeparator' is not a member of 'System.Windows.Forms.Application'. C:\Users\User\AppData\Local\Temporary Projects\WindowsApplication1\Module1.vb 12 15 WindowsApplication1