[Creat0R]

Например так:

Код:

;8 это чтобы создать папку если не существует, 1 это перезапись файлов
$iRet = _FilesCopy_Proc("C:\Source", "C:\Dest", "log.*.txt", "Скопировано_", 8+1)
$iExtended = @extended
$iError = @error

MsgBox(64, "Results", StringFormat("ERROR:\t\t%i\nReturn:\t\t%i\nFiles Copied:\t%i", $iError, $iRet, $iExtended))

Func _FilesCopy_Proc($sSrc_Dir, $sDst_Dir, $sFile_Filter, $sFile_Prefix="", $iReplace=0)
    If Not StringInStr(FileGetAttrib($sSrc_Dir), "D") Then Return SetError(1, 0, 0)

    Local $iRet_Extended = 0, $sRegExp_Filter, $hSearch, $sFile_Path, $sFile_Name

    $sSrc_Dir = StringRegExpReplace($sSrc_Dir, "\\+$", "")
    $sDst_Dir = StringRegExpReplace($sDst_Dir, "\\+$", "")

    $sRegExp_Filter = $sFile_Filter
    $sRegExp_Filter = StringReplace($sRegExp_Filter, ".", "\.")
    $sRegExp_Filter = "(?i)\A" & StringReplace($sRegExp_Filter, "*", ".*") & "\z"

    $hSearch = FileFindFirstFile($sSrc_Dir & "\*")

    While 1
        $sFile_Name = FileFindNextFile($hSearch)
        If @error Then ExitLoop

        $sFile_Path = $sSrc_Dir & "\" & $sFile_Name

        If StringInStr(FileGetAttrib($sFile_Path), "D") > 0 Then
            _FilesCopy_Proc($sFile_Path, $sDst_Dir, $sFile_Filter, $sFile_Prefix, $iReplace)
            $iRet_Extended += @extended
        Else
            If StringRegExp($sFile_Name, $sRegExp_Filter) Then _
                $iRet_Extended += FileCopy($sFile_Path, $sDst_Dir & "\" & $sFile_Prefix & $sFile_Name, $iReplace)
        EndIf
    WEnd

    Return SetExtended($iRet_Extended, FileClose($hSearch))
EndFunc