2019-10-14 20:53:37 +02:00
|
|
|
# RouterOS Function
|
|
|
|
|
# Copyright (c) Grzegorz Budny
|
2020-02-08 20:03:02 +01:00
|
|
|
# Version 1.0
|
|
|
|
|
# Last update: 2/8/2020
|
2019-10-14 20:53:37 +02:00
|
|
|
# Removes files by specific name or file extansion
|
|
|
|
|
|
|
|
|
|
:global FileScreening do={
|
|
|
|
|
|
|
|
|
|
:local systemName [/system identity get name];
|
|
|
|
|
:local filesNumber [/file print count-only];
|
|
|
|
|
|
|
|
|
|
:local fileName;
|
|
|
|
|
|
|
|
|
|
:for i from=0 to=$filesNumber step=1 do= \
|
|
|
|
|
{
|
|
|
|
|
|
|
|
|
|
:set fileName [/file get value-name=name number=$i];
|
|
|
|
|
|
|
|
|
|
:if ($fileName ~ $keyWord) do={
|
|
|
|
|
|
|
|
|
|
/file remove $fileName;
|
|
|
|
|
|
|
|
|
|
:log warning ("...:::".$fileName." removed. Matched ".$keyWord.":::...");
|
|
|
|
|
:set fileName;
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$FileScreening keyWord=".txt";
|
