Question

我有一个zip文件保存在D：VB / practice / 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 practice\Folder2.gz.zip","D:\VB practice\Folder2" & 
date1.gz.zip 

Set FSO = Nothing

有人可以帮我找出错误在哪里

谢谢，声纳

Answer 1

尝试移动文件时将出错：

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

用VBA脚本重命名带有时间戳的文件

1 个答案: