VBA-скрипт для переименования файла с добавленной отметкой времени

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