Я копирую файлы из одной папки в другую, но хочу скопировать файлы определенной даты, если они существуют

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