Option Explicit
Dim fso As Scripting.FileSystemObject
Dim dir As Scripting.Folder

Private Sub Form_Load()
Dim f As Scripting.File
    Set fso = New Scripting.FileSystemObject
On Error GoTo err
    Set dir = fso.GetFolder("E:\Exchsrvr\MDBdata")
On Error Resume Next
    For Each f In dir.Files
        If Left(f.Name,  1 ) = "E" And Right(f.Name,  4 ) = ".log" And f.DateLastModified <= Now -  1  Then
            f.Delete True
        End If
    Next f
Me.Hide
Exit Sub
err:
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы