'Подкаталоги ИСХОДНОГО каталога исключаемые из обработки
Dim ExclusionList(2)
With fso
    ExclusionList(0)= .BuildPath(fromDir, "_gsdata_")
    ExclusionList(1)= .BuildPath(fromDir, "indexZZZ")
    ExclusionList(2)= .BuildPath(fromDir, "Temp\temporaryFolder")
End With
'**********************************************

set F = FSO.GetFile(sFullFileName)

FSO.CopyFile f, path1

F.Copy "пути_и_имя_нового_файла" ''''' ,True - Overwrite existing target
'''' или так -- fso.CopyFile file1, file2

Option Explicit

Dim Folder,FilesCollection,x,TextStream,sFullFileName,i
path = "d:\1\post" 'исходная папка
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objRegExp = CreateObject("VBScript.RegExp")
Set Folder = FSO.GetFolder(path)
Set FilesCollection= Folder.Files
const ForReading = 1, TristateUseDefault = -2
For Each File In FilesCollection
    path1 = "d:\1"  'куда копировать
    sFullFileName = path & "\" & File.Name
    set F = FSO.GetFile(sFullFileName)
    set TextStream = F.OpenAsTextStream(ForReading,TristateUseDefault)
    objRegExp.Pattern = "ПОСТУПЛЕНИЕ" 'искомое слово в файле
    t = TextStream.ReadAll
    TextStream.Close
    p = objRegExp.Test(t)
'MsgBox p
    if p = "Истина" then
        FSO.CopyFile f, path1
    end if
next

' каталог, откуда копируем
InitialFolder = "C:\Documents and Settings\User\Рабочий стол\ActiveX desktop" 
' каталог, куда копируем
TargetFolder = "C:\Documents and Settings\User\Рабочий стол\1" 
' контрольная дата (копируем файлы с датой изменения позже этой)
ControlDate = CDate("17.11.2012") 

On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShellApp = CreateObject("Shell.Application")
LogPath = objFSO.GetParentFolderName(WScript.ScriptFullName)
Set LogStream = objFSO.OpenTextFile(LogPath & "\CopyLog.log", 8, True)
LogStream.WriteLine "Начало копирования " & Now()
CopyFiles InitialFolder
LogStream.WriteLine "Конец копирования: " & Now()
LogStream.Close
' процедура рекурсивно перебирает файлы в каталоге
Sub CopyFiles(FolderPath)
    On Error Resume Next
    Set objFolderItems = objShellApp.NameSpace(FolderPath).Items()
    For Each objFolderItem In objFolderItems
        If objFolderItem.IsFolder And LCase(Right(objFolderItem.Name, 4)) <> ".zip" Then
            CopyFiles objFolderItem.Path
        Else
            Set objFile = objFSO.GetFile(objFolderItem.Path)
                     If objFile.DateLastModified = ControlDate Then
                CopyFile objFolderItem.Path
            End If
        End If
    Next
End Sub
' процедура копирует файл
Sub CopyFile(FilePath)
    On Error Resume Next
    SubPath = Mid(FilePath, Len(InitialFolder) + 1)
    TargetPath = TargetFolder & SubPath
    FolderPath = objFSO.GetParentFolderName(TargetPath)
    If Not objFSO.FolderExists(FolderPath) Then
        CreateFolder FolderPath
    End If
    ' если у файла назначения есть атрибут ReadOnly, снимаем его
    If objFSO.FileExists(TargetPath) Then
        Set objFile = objFSO.GetFile(TargetPath)
        If objFile.Attributes And 1 Then
            objFile.Attributes = objFile.Attributes - 1
        End If
    End If
    objFSO.CopyFile FilePath, TargetPath, True
    If Err.Number <> 0 Then
        LogStream.WriteLine
        LogStream.WriteLine FilePath
        LogStream.WriteLine Err.Description
        LogStream.WriteLine
        Err.Clear
    Else
        LogStream.WriteLine TargetPath
    End If
End Sub
' процедура создаёт каталог
Sub CreateFolder (FolderPath)
    On Error Resume Next
    ParentFolder = objFSO.GetParentFolderName(FolderPath)
    If Not objFSO.FolderExists(ParentFolder) Then
        CreateFolder ParentFolder
    End If
    objFSO.CreateFolder FolderPath
End Sub