如果文件的修改日期与规定日期不匹配，VBS 脚本将替换文件

Question

我有以下脚本可以将文件从一个位置复制到另一个位置，但我需要的是脚本仅运行如果修改日期与文件中规定的日期不匹配vb 脚本。

我曾尝试使用 DateDiff 但无法正常工作。这是我到目前为止的简单脚本，无论如何都会覆盖：

dim filesys 
set filesys=CreateObject("Scripting.FileSystemObject") 
If filesys.FileExists("C:\test1\test.txt") Then 
    filesys.CopyFile "C:\test1\test.txt", "C:\test2\" 
End If

如何在开始复制过程之前检查文件修改日期并将其与另一个日期进行比较？

Answer 1

假设您想要修改日期和一种可能的比较字符串的方法，因为您想要查看日期是否不相等。

dim filesys 
set filesys=CreateObject("Scripting.FileSystemObject") 

Dim sFilespec
sFilespec = "C:\test1\test.txt"

If filesys.FileExists(sFilespec) Then 
  ' Get DateCreated
  dateModified = FormatDateTime(ShowFileInfo(sFilespec),2)
  dateStated = FormatDateTime(Now(),2)

  Debug.WriteLine("Modified: " & FormatDateTime(dateModified,2))
  Debug.WriteLine("  Stated: " & FormatDateTime(dateStated,2))
  Debug.WriteLine("")

  ' 
  If dateModified <> dateStated Then
    Debug.WriteLine dateModified & " is not equal to " & dateStated
    filesys.CopyFile sFilespec, "C:\test2\" 
  Else
    Debug.WriteLine dateModified & " is equal to " & dateStated
  End If
End If  


' Get the date last modified
Function ShowFileInfo(filespec)
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   ShowFileInfo = f.DateLastModified
End Function

如果文件的修改日期与规定日期不匹配，VBS 脚本将替换文件

VBS Script to Replace a file if its modified date does not match stated date

vbscript

date-difference