1С VB скрипт для автоматической чистки журналов регистрации

29 Jun
Published by Nicholas

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.Files

For 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 If

End If
Next

Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing

В скрипте необходимо указать необходимое количество дней и путь к файлам журнала регистрации (выделенно жирным шрифтом).

Tags 

1С 8

Добавить комментарий

Plain text

  • HTML-теги не обрабатываются и показываются как обычный текст
  • Строки и абзацы переносятся автоматически.
CAPTCHA
Вы человек или автоматическая спам-рассылка?
Target Image