AJUDA COM SCRIPT

[Ricardob]

Bom dia,

Consegui esse script pesquisando na internet, para copiar arquivos por data de modificaçã e tipo de arquivo.  só que não esta funcionando.  alguém poderia me ajudar?

 

Segue:

 

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" &amp  strComputer &amp  "\root\cimv2")
    Set objFSO = CreateObject("Scripting.FileSystemObject”)

    'Coloque aqui a pasta que será verificada
    strPasta = "C:\ORIGEM\"

    'Coloque aqui a pasta para a qual os arquivos serão copiados (Se quiser copiar, se não quiser apague essa linha)
    strDest = "C:\DESTINO\"

    'Coloque aqui os tipos de arquivos que serão copiados ou deletados, separados por ";"
    arrTipos = "xml;bak"

    ' NOME DO ARQUIVO DE LOG
    strLogFile = "C:\DESTINO\logMover.txt"

    'quantidade de dias
    strData = 7

    arrTipos = split(arrTipos,";")
    Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0)
    objLogFile.WriteLine  VBCRLF
    objLogFile.WriteLine "==========================================="
    objLogFile.WriteLine "ARQUIVOS MOVIDOS EM: " & now
    objLogFile.WriteLine "==========================================="

    If (objFSO.FolderExists(strPasta) = True) Then
    Set Folder = ObjFSO.GetFolder(strPasta)
    Set MyFiles = Folder.files
    For Each tipo in arrTipos
    For Each MyFiles in Folder.Files
    If Right(myfiles.name,3) = tipo And DateDiff("d",myfiles.DateLastModified,now) > strData Then
    objFSO.Copyfile strPasta & myfiles.name,strDest,True
    objLogFile.WriteLine "Arquivo : "  & myfiles.name &  " copiado em : " & Now
    objFSO.Deletefile strPasta & myfiles.name
    End If
    Next
    Next
    End if

    wscript.quit