VBScript编译错误：应为语句结尾

我正在尝试执行一个VB脚本来复制粘贴文件并用当前时间重命名系统显示错误

错误-Microsoft VBScript编译错误：应为语句结尾

ExecuteInsert
Sub ExecuteInsert()
    Const DestinationFolder = "D:\Temp\Help\"
    Const SourceFolder = "D:\Temp\"
    Const SourceFile = "DataFile.xlsx"
    dim DestinationFile as String
    DestinationFile = "DataFile_" & Format(Now, "dd_mm_yyyy hh_mm") & ".xlsx"
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile SourceFolder & SourceFile, DestinationFolder, True
    Name DestinationFolder & SourceFile As DestinationFolder & DestinationFile
    Set fso = Nothing
End Sub

---

VBScript不支持类型化DIM，所有变量均视为相等：变量。因此：

    dim DestinationFile as String
==>
    dim DestinationFile

线路

Name DestinationFolder & SourceFile As DestinationFolder & DestinationFile

---

也不是有效的VBScript；我不知道如何更正它，因为我不知道您想要实现什么。

非常感谢您的回复，我想将复制的文件重命名为filename+ddmmyyyy