Допустим нам надо не удалять старые логи, а пер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