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