Пользователь
Сообщения: 55
Благодарности: 1
|
Профиль
|
Отправить PM
| Цитировать
Как сделать что бы после 10 дней при запуске он удалял файлы из каталога
@Echo Off
Set DayLimit=10
Echo On Error Resume Next>~tmp.vbs
Echo Set WshShell = WScript.CreateObject("WScript.Shell")>>~tmp.vbs
Echo nDate = WshShell.RegRead("HKLM\Software\MyProgram\")>>~tmp.vbs
Echo If nDate = "" Then>>~tmp.vbs
Echo nDate = Now>>~tmp.vbs
Echo WshShell.RegWrite "HKLM\Software\MyProgram\", nDate>>~tmp.vbs
Echo End If>>~tmp.vbs
Echo If DateDiff("d", nDate, Now) ^> %DayLimit% Then WScript.Echo "Limit">>~tmp.vbs
For /F %%A In ('CScript ~tmp.vbs //Nologo') Do If /I "%%A"=="Limit" GoTo :EOF
Del /F /Q ~tmp.vbs>Nul
|
Последний раз редактировалось ofcoss, 18-07-2009 в 00:17.
Отправлено: 23:26, 17-07-2009
| #10
|