Vbscript 用于重命名附加时间戳的文件的VBA脚本

我有一个保存在D:VB/practice/snapshot.zip中的zip文件。有人能用VB代码帮我重命名文件，并在文件名的末尾附加当前时间戳吗

我是一个完全不懂VB脚本的人，能不能有人帮我一下

我写了下面的代码，这是给我的错误错误：对象要求：12/10/20186:21:18下午

DIM FSO 
SET FSO=CreateObject("Scripting.FileSystemObject") 
DIM date1 
date1 = Now() 
FSO.MoveFolder "D:\VB practice\Folder2.gz.zip","D:\VB practice\Folder2" & 
date1.gz.zip 

Set FSO = Nothing 

有人能帮我找出错误在哪里吗

谢谢，

---

Sonu

尝试移动文件时会出错：

FSO.MoveFolder "D:\VB practice\Folder2.gz.zip","D:VB practice\Folder2" & 

在第二个实例中，在

D:

之后缺少

\

编辑：这里有一个固定的脚本@Vaseem Syed

DIM FSO 
SET FSO=CreateObject("Scripting.FileSystemObject") 
DIM date1 
date1 = Now() 
FSO.MoveFolder "D:\VB practice\Folder2.gz.zip","D:\VB practice\Folder2" & date1 & ".gz.zip"
Set FSO = Nothing 

---

VB、VBA和VB脚本是三种不同的东西。VBA只在办公室内运行。VBScript没有。如果你用谷歌搜索它，你会很快找到它。让我们看看这里的一个可能的副本，这一个实际上有充分的工作代码。非常感谢您的快速回复。很抱歉，在编辑此帖子时，我错过了\，请尝试在此处回答好吗？另外：

date1.gz.zip

必须是

date1&“.gz.zip”

将此放入其中，您将看到问题：

msgbox date1

。不能在文件名中使用

：

。使用replace函数将其替换为

-

或下划线，或将其拆分，只取日期。