Vbscript 我正在将文件从一个文件夹复制到另一个文件夹，但我想复制特定日期的文件（如果存在）

以下是我正在做的事情：

For each file in objFolder.Files
  path1 = filesys.getabsolutepathname(objFolder&"\"&File.name)
  Set objFile = filesys.GetFile(path1)
  mdate = left(cdate(objFile.DateLastModified),8)
  If datevalue(mdate) = datevalue(cdate(arrdate(i)))  then
    filesys.copyfile path1, dest1
  else   
  end if
Next

---

如果文件夹中不存在具有特定日期的文件，代码将失败。

这里有一个建议。也许它会解决你的问题；至少我希望这有帮助

For Each objFile in objFolder.Files
    mdate = left(cstring(objFile.DateLastModified),10)
    If datevalue(mdate) = datevalue(cdate(arrdate(i))) then
        objFile.copy dest1
    End If
Next

---

调试它，检查objFile是您认为的，检查DateLastModified的值是您认为的吗？请在您的代码中为我们提供一些值示例