Question

我正在运行一个直接从源复制到目标的程序。以下脚本一起运行并跳过任何文件，其中“修改日期”等于程序运行的同一天。

我想修改脚本以跳过任何“创建”日期等于今天日期的文件，并允许任何其他文件，无论“修改”日期如何。

基本上，如果DateCreated =今天然后跳过

以下是我目前使用的脚本。我只是无法使用正确的语法来使用创建时间和修改时间。

提前谢谢你，

Function Description(ScriptType)
  Description = "Ignores any source files modified today. Not used on Restore."
  ScriptType = 2
End Function

Sub RunBeforeFileCompare(Filename, ByRef Skip)
  ' Ignore if this is a Restore
  If SBRunning.Restore Then Exit Sub

  ' See if the file date is the same as todays date, skip if so
  If DateDiff("d", SBRunning.GetFileDateTime(Filename, TRUE), Date) = 0 Then
    Skip = TRUE
  Else
    Skip = FALSE
  End If
End Sub

Answer 1

以下示例说明了GetFile方法的用法。

filespec：必需。 filespec是特定文件的路径（绝对或相对）。

如果指定的文件不存在，则GetFile方法会发生错误。

JScript

function ShowFileAccessInfo(filespec)
{
    var fso, fle, s;
    fso = new ActiveXObject("Scripting.FileSystemObject");
    fle = fso.GetFile(filespec);
    s = fle.Path.toUpperCase() + "<br>";
    s += "Created: " + fle.DateCreated + "<br>";
    s += "Last Accessed: " + fle.DateLastAccessed + "<br>";
    s += "Last Modified: " + fle.DateLastModified   
    return(s);
}

VBScript

Function ShowFileAccessInfo(filespec)
   Dim fso, fle, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set fle = fso.GetFile(filespec)
   s = fle.Path & "<br>"
   s = s & "Created: " & fle.DateCreated & "<br>"
   s = s & "Last Accessed: " & fle.DateLastAccessed & "<br>"
   s = s & "Last Modified: " & fle.DateLastModified   
   ShowFileAccessInfo = s
End Function

VBSCRIPT：忽略今天创建的文件

1 个答案: