我有这个脚本,但想在 C: 上没有文件的情况下对其进行增强:从 R: 驱动器复制一个。目前正在检查文件是否存在。
目前,此脚本将在单个文件夹 \SCRIPTS 中的多个文件上运行。当我为每个不同的文件名重复该语句时(我确实知道文件名)检查 R:\SCRIPTS 中的所有文件并与 C:\SCRIPTS 复制或覆盖文件进行比较的更经济的方法会很好,如果任何人都有一个可能有帮助的片段
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLocalFile = objFSO.GetFile("C:\SCRIPT\SCRIPTTEXT.txt")
dtmLocalDate = objLocalFile.DateLastModified
Set objServerFile = objFSO.GetFile("R:\SCRIPT\SCRIPTTEXT.txt")
dtmServerDate = objServerFile.DateLastModified
If dtmLocalDate < dtmServerDate Then
objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting
End If