date - 尝试移动文件并添加日期时间戳

Question

过去几天一直在阅读一些问题和答案，但无法确定我在哪里出错了，我将不胜感激任何帮助。因此，我试图在拉入新副本之前将文件移动到不同的文件夹，但我希望我要移动的文件在之后有一个日期时间戳（只是为了将来我有它的记录）。抱歉，如果这有点粗糙，这是我第二次尝试做这样的事情。

DIM Date1

Date1 = Now()
DIM FSO 
SET FSO=CreateObject("Scripting.FileSystemObject")


FSO.Movefile "I:\This is it\External Storage\Replen\Data\LOCATIONS\*ITEM INVENTORY BY PURCHASE ORDER.csv*", "I:\This is it\External Storage\Replen\Data\LOCATIONS\ITEM INVENTORY BY PURCHASE ORDER\" & Date1.csv

With CreateObject("Scripting.FileSystemObject")

.MoveFile "C:\Users\s.c\Downloads\*.csv*", "I:\This is it\External Storage\Replen\Data\LOCATIONS\"
End With

Answer 1

此代码将使用您的计算机日期将sSourceFile(ITEM INVENTORY BY PURCHASE ORDER.csv在您的情况下)移动sDestinationFolder并重命名 (to )：YYYY-MM-DD.csv

Dim sSourceFile
Dim sDestinationFolder
Dim sDate
Dim objFSO

sSourceFile = "I:\This is it\External Storage\Replen\Data\LOCATIONS\ITEM INVENTORY BY PURCHASE ORDER.csv"
sDestinationFolder = "I:\This is it\External Storage\Replen\Data\LOCATIONS\ITEM INVENTORY BY PURCHASE ORDER\"

' Build date string
sDate = Year(Now) & "-" & Month(Now) & "-" & Day(Now)

' Create FileSystem object
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Check if File exists
If objFSO.FileExists(sSourceFile) Then

    ' Move file
    objFSO.Movefile sSourceFile, sDestinationFolder & sDate & ".csv"

Else
    ' File does not exist
End If