Question

以下是我正在做的事情：

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

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

Answer 1

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

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

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

1 个答案: