使用vba重命名csv文件

Question

我收到运行时错误“ 5”

Invalid Procedure call or argument, when trying to rename the CSV files.

代码：

Sub Move_Log(filepath)
Set oFS = CreateObject("Scripting.FileSystemObject")

Dest = Sheets("DBS").Cells(12, "H") & "\" & Year(Date)

If Not oFS.FolderExists(Dest) Then oFS.CreateFolder Dest
dt = WorksheetFunction.WeekNum(Now, vbMonday)

Dest = Dest & "\" & "Week" & dt
If Not oFS.FolderExists(Dest) Then oFS.CreateFolder Dest

OldName = Dest & "\Log.csv"
Dest = Dest & "\" & Format(Now, "YYYYmmdd hh:mm:ss") & " Log.csv"
'Dest = Dest & "\" & Format(Date, "ddmmmyyyy") & "_Log.csv"
Debug.Print OldName
Debug.Print Dest
Set fso = CreateObject("scripting.filesystemobject")
fso.MoveFile Source:=filepath, Destination:=OldName ' replace with source and destination as required.
Name OldName As Dest
End Sub

我在下一行收到此错误

Name OldName As Dest