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

Question

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

我对VB脚本是完全陌生的，可以请一些人快速帮助我吗。

我已经写了下面的代码，它给出了我的错误错误：所需对象：12/10/20186:21:18 PM

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

有人能帮我查一下的错误在哪里吗

谢谢，Sonu

Answer 1

当您尝试移动文件时会出错：

FSO.MoveFolder "D:VB practiceFolder2.gz.zip","D:VB practiceFolder2" & 

在第二个实例中，D:之后缺少。

编辑：这里有一个固定的脚本给你@Vasem Syed

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