[megaloman]

Код:

Call DelOldFile("Z:\Box_In", "^log.*\.log$", "15.03.2018")
Call DelOldFile("Z:\Box_In", "^print_\[.*\.txt$", "01.01.2016")

' ---------------------------------------------------------------------------
Sub DelOldFile(inDir, Msk, sDt)
    dDt = DateValue(sDt)
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folds = FSO.GetFolder(inDir)
    Set Files = Folds.Files

    Set RegMaska = New RegExp
    RegMaska.Pattern = Msk
    RegMaska.IgnoreCase = True
         
    For Each jf In Files
       If RegMaska.Test(jf.Name) Then
'            If jf.DateCreated < dDt Then
            If jf.DateLastModified < dDt Then
                F = FSO.DeleteFile(jf.Path, True)
            End If
       End If
    Next
End Sub

[Vooodi4356]

megaloman, Добрый день. Спасибо за ответ. Сам скрипт проверил, но результат он не выдает, а файлы как были так и остались и процесс удаление видимо не срабатывает. Хотя может я сам что то не правильно делаю?

[megaloman]

файлы как были так и остались и процесс удаление видимо не срабатывает. Хотя может я сам что то не правильно делаю »

Подозревал, что так и будет. Надеюсь, путь Вы указали свой вместо моего "Z:\Box_In", и правильно. Но загвоздка в другом: я подозреваю, что Вы тестировали скрипт на какой-то тестовой папке, куда скопировали файлы. И тут начинается коллизия: скрипт анализирует дату создания файла If jf.DateCreated. В скопированных сегодня файлах дата создания - сегодняшняя.
В этом можно убедиться, проделав в командном окне команду
dir Z:\Box_In\*.txt /O:D /T:С
Возможно анализировать не дату создания, а дату последней модификации. Эти даты можно увидеть командой
dir Z:\Box_In\*.txt /O:D /T:W
В предыдущем посте я изменил строку.

Код:

            If jf.DateLastModified < dDt Then

[megaloman]

Vooodi4356,

Как вариант, ИМХО, проще в использовании CMD

Предполагаю, что дата в системе отображается как дд.мм.гггг

Код:

@Echo Off

Call :DelOldFile "Z:\Soft_In\log_*.log" "15.03.2018"
Call :DelOldFile "Z:\Soft_In\print_[*].txt" "01.01.2016"
GoTo :Eof

:DelOldFile
	Set "DateSave=%~2"
	Set /A DateSave=%DateSave:~6,4%%DateSave:~3,2%%DateSave:~0,2%
	Pushd "%~dp1"
	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir %1 /b /A:-D /O:D /T:W`) DO Call :DelDate "%~dp1%%f" "%%~tf" %DateSave%
	Popd
GoTo :Eof

:DelDate
	Set "DateFile=%~2"
	Set /A DateFile=%DateFile:~6,4%%DateFile:~3,2%%DateFile:~0,2%
	If %DateFile% LSS %3 Del %1 
GoTo :Eof

[Vooodi4356]

Путь я сразу поменял на тот который требовался.
Проверил скрипт еще раз с измененной вами командой - If jf.DateLastModified < dDt Then
Скрипт работает и при смене дат, удаление происходит нормально.

Больше спасибо за оказанную помощь. Буду учить мат часть.

С cmd тоже попробую