diff --git a/system/find_unused_dirs.php b/system/find_unused_dirs.php
new file mode 100644
index 000000000..196e519f8
--- /dev/null
+++ b/system/find_unused_dirs.php
@@ -0,0 +1,100 @@
+
+ * Andreas Oesterreicher < andreas.oesterreicher@technikum-wien.at >
+ */
+/**
+ * Scannt das documents Verzeichnis nach LV-Ordnern die nicht mehr benoetigt werden
+ *
+ * Parameter:
+ * stg_von ... Kennzahl ab der gescannt wird (inklusive)
+ * stg_bis ... Kennzahl bis zu der gescannt wird (inklusive)
+ */
+require_once('../config/cis.config.inc.php');
+require_once('../include/basis_db.class.php');
+
+$text='';
+$getstr='';
+
+$lv_arr = array();
+$db = new basis_db();
+
+echo '
+
+
+ Unused Dirs
+
+
+
+Zu den folgenden Verzeichnissen sind keine aktiven Lehrveranstaltungen vorhanden:
+';
+
+$qry = "SELECT * FROM lehre.tbl_lehrveranstaltung";
+if (isset($_REQUEST["stg_von"]))
+ $getstr .= " studiengang_kz >= '".$_REQUEST["stg_von"]."'";
+if (isset($_REQUEST["stg_bis"]))
+{
+ if ($getstr != "")
+ $getstr .= " AND";
+ $getstr .= " studiengang_kz <= '".$_REQUEST["stg_bis"]."'";
+}
+if ($getstr != "")
+ $getstr = " WHERE".$getstr;
+$qry.= ($getstr!=''?$getstr:' WHERE ').' AND tbl_lehrveranstaltung.aktiv ';
+
+if($result = $db->db_query($qry))
+{
+ while($row = $db->db_fetch_object($result))
+ {
+ $lv_arr[$row->studiengang_kz][$row->semester][$row->lehreverzeichnis] = 1;
+ }
+}
+
+$sqlstr = "SELECT studiengang_kz, lower(typ||kurzbz) as stg, max_semester FROM public.tbl_studiengang";
+$sqlstr = $sqlstr.$getstr." ORDER BY typ, kurzbz";
+
+if($result = $db->db_query($sqlstr))
+{
+ while($row = $db->db_fetch_object($result))
+ {
+ echo "
".$row->stg."
";
+ for ($i=1; $i <= $row->max_semester; $i++)
+ {
+ $dir = "../documents/".strtolower($row->stg)."/".$i."/";
+ echo "*** ".$i." ***
";
+ if (is_dir($dir))
+ {
+ $files = scandir($dir);
+ foreach ($files as $f)
+ {
+ if (is_dir($dir.$f) && $f != "." && $f != "..")
+ {
+ if (!key_exists($f, $lv_arr[$row->studiengang_kz][$i]))
+ {
+ echo $dir.$f.'
';
+ }
+ }
+ }
+ }
+ }
+ }
+}
+
+?>
+
+
\ No newline at end of file