[deepred]

vadimir,

предлагаю решение на VBScript (*.vbs):

Код:

Option Explicit 
Dim objFSO, objFile
Dim strSRCFolder, strDSTFolder

strSRCFolder   = "G:\" ' папка источник
strDSTFolder   = "G:\1"  ' папка приемник

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
if objFSO.FolderExists(strSRCFolder) Then
   if objFSO.FolderExists(strDSTFolder) Then

      For Each objFile In objFSO.GetFolder(strSRCFolder).Files
          if DateDiff("D", objFile.DateLastModified, Now) = 1 Then
          objFile.Copy strDSTFolder & "\"
          End If
      Next
    Else
        Wscript.Echo "strDSTFolder: " & strDSTFolder & " не существует!"
    End If
Else
    Wscript.Echo "strSRCFolder: " & strSRCFolder & " не существует!"
End If
Wscript.Quit 0