ScriptsVBS & VBA

Como mover arquivos antigos e gerar log usando scripts vbs

206 views
4 Comentários
0
(0)

Neste artigo veremos como mover arquivos antigos e gerar log, usando scripts visual basic (vbs)

  1. Crie um arquivo de texto e salve com nome.vbs
  2. copie o código abaixo e altere as linhas que julgar necessário (codigo está comentado e creio que a maioria não terá maiores dificuldade)
  3. execute-o ou adicione este script a uma tarefa agendada para que rode manualmente.

strComputer = “.”
Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2”)
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
‘Coloque aqui a pasta que será verificada
strPasta = “F:\BKPs Atuais\”
‘Coloque aqui a pasta para a qual os arquivos serão copiados (Se quiser copiar, se nao quiser apague essa linha)
strDest = “F:\BKPS antigos\\BAK-LOG-OLD\”
‘Coloque aqui os tipos de arquivos que serão copiados ou deletados, separados por “;”
arrTipos = “log;bak”
‘ NOME DO ARQUIVO DE LOG
strLogFile = “F:\LOGs\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

Gostou deste script? comente conosco seu ponto de vista. Acompanhe também nossas outras dicas de scripts e se você tiver outras dicas, nos mande seu artigo

Não esqueça de se inscrever com na caixa ao lado para receber as novidades diretamente em seu e-mail

O que você achou disso?

Média da classificação 0 / 5. Número de votos: 0

Nenhum voto até agora! Seja o primeiro a avaliar este post.

Como você achou esse post útil...

Ajude o site a crescer compartilhando o conteúdo

Lamentamos que este post não tenha sido útil para você!

Vamos melhorar este post!

Diga-nos, como podemos melhorar este post?

Tags: , ,

Artigos Relacionados

4 Comentários. Deixe novo

Gostou do conteúdo? Deixe seu comentário

Veja também

Menu