mzithoboss
New Member
- Joined
- Sep 23, 2016
- Messages
- 5
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
-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