Initial Commit. First Release

RouterOS_File_Screening.rsc

@@ -1,2 +1,28 @@
-:global n [file get value-name=name number=2]
-:if ($n ~ ".txt") do={/file remove $n} else={:put "No"}
+# RouterOS Function
+# Copyright (c) Grzegorz Budny 
+# 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";