1С VB скрипт для автоматической чистки журналов регистрации
VBScript скрипт для автоматической чистки журналов регистрации старше 30 дней. Подходит только для ЖР старого формата (*.lgp).
Option Explicit
'On Error Resume Next
Dim oFSO, oFolder, sDirectoryPath
Dim oFileCollection, oFile, sDir
Dim iDaysOld
Dim WshShell, oExec
iDaysOld = 30
Set oFSO = CreateObject("Scripting.FileSystemObject")
sDirectoryPath = "C:\Program Files (x86)\1cv82\srvinfo\reg_1541\5759d938-20b0-4417-b07f-d9809888a255\1Cv8Log"
'wscript.echo sDirectoryPath
Set oFolder = oFSO.GetFolder(cStr(sDirectoryPath))
Set oFileCollection = oFolder.FilesFor each oFile in oFileCollection
'wscript.echo Cstr(oFile.Name)
If LCase(Right(Cstr(oFile.Name), 3)) = "lgp" Then
If oFile.DateLastModified < (Date() - iDaysOld) Then
oFile.Delete(True)
'wscript.echo Cstr(oFile.Name)
End IfEnd If
NextSet oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing
В скрипте необходимо указать необходимое количество дней и путь к файлам журнала регистрации (выделенно жирным шрифтом).
Добавить комментарий