Marcellus, Boa tarde
Eu visualizei o link sugerido fiz alguns teste e ainda sim não consegui fazer rodar o script da forma que estou querendo.
Utilizando o script que está no link ele não apresenta erros mas também não move arquivo algum sendo que a pasta que ele está buscando possui arquivo que deveriam ser movidos, segue abaixo o script que eu utilizei.
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Coloque aqui a pasta que será verificada
strPasta = "D:\bkp"
'Coloque aqui a pasta para a qual os arquivos serão copiados (Se quiser copiar, se nao quiser apague essa linha)
strDest = "D:\Teste"
'Coloque aqui os tipos de arquivos que serão copiados ou deletados, separados por ";"
arrTipos = "log,jpg,mp3,avi,pdf,txt"
' NOME DO ARQUIVO DE LOG
strLogFile = "c:\teste.txt"
'quantidade de dias
strData = 1
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
