Скрипт копирования вчерашних логов

Выкладываем готовые скрипты. Запрашиваем скрипты.
Ответить
Аватара пользователя
kamchatik
Администратор
Сообщения: 46
Зарегистрирован: 08 окт 2013, 15:26
Откуда: Харьков
Контактная информация:

Скрипт копирования вчерашних логов

Сообщение kamchatik » 05 окт 2015, 13:36

Еще одна интересная задача.
Допустим нам надо не удалять старые логи, а перtносить их в какое то хранилище.

Данный скрипт копирует все файлы за вчера из заданной папки.

Код: Выделить всё

Option Explicit 
Dim objFSO, objFile
Dim strSRCFolder, strDSTFolder

strSRCFolder   = "D:\logs\" 
strDSTFolder   = "\\10.87.XX.XX\share\logs"  

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
if objFSO.FolderExists(strSRCFolder) Then
   if objFSO.FolderExists(strDSTFolder) Then

      For Each objFile In objFSO.GetFolder(strSRCFolder).Files
          if DateDiff("D", objFile.DateLastModified, Now) = 1 Then
          objFile.Copy strDSTFolder & "\"
          End If
      Next
    Else
        Wscript.Echo "strDSTFolder: " & strDSTFolder & " не существует!"
    End If
Else
    Wscript.Echo "strSRCFolder: " & strSRCFolder & "не существует!"
End If
Wscript.Quit 0
где
strSRCFolder - откуда берем все файлы за вчера
strDSTFolder - куда их кладем

Все это заворачиваем в файл с расщирением .vbs и добавляем в Windows Scheduler

Ответить