Added lot of junk laying around on harvie.cz

[mirrors/Programs.git] / php / skripty / dir_tree.php

diff --git a/php/skripty/dir_tree.php b/php/skripty/dir_tree.php
new file mode 100644 (file)
index 0000000..24f746f
--- /dev/null
+++ b/php/skripty/dir_tree.php
@@ -0,0 +1,49 @@
+<?php\r
+\r
+//Rekurzivní výpis souborù a adresáøù v podadresáøích\r
+//Demonstrace rekurzivní funkce\r
+//Author: <-Harvie 2oo7\r
+\r
+function dir_tree($directory, $level) {\r
+\r
+  //$num = "1";\r
+  \r
+  //echo ("<b>Soubory v $directory :</b><br /><br />\n<ul>");\r
+\r
+       $dirfp = opendir ($directory); \r
+  $leveli = $level;\r
+              while($leveli) { echo("-"); $leveli--; }\r
+  echo "[DIR] $directory\n";\r
+               while (false!==($file = readdir($dirfp))) \r
+               { \r
+                               if ($file != "." && $file != "..") \r
+                               { \r
+            if (is_dir($directory.$file))\r
+            {\r
+              echo("\n");\r
+              $leveli = $level;\r
+              while($leveli < 0) { echo("-"); $leveli--; }\r
+              //echo "-[DIR] $file\n";\r
+              dir_tree("$directory$file\\", ($level+2));\r
+              echo("\n");\r
+            }\r
+            else\r
+            {\r
+              $leveli = $level;\r
+              while($leveli + 1) { echo("-"); $leveli--; }\r
+              echo "$file - ($directory$file)\n"; \r
+              //$num = ($num + 1);\r
+            }\r
+                               } \r
+               }\r
+               closedir($dirfp); \r
+\r
+}\r
+\r
+//CODE\r
+\r
+$dir = ("D:\\Webdesign\\");\r
+echo("FreeSpace: ".(disk_free_space($dir)/1000000)." MB /".(disk_total_space($dir)/1000000)." MB\n");\r
+dir_tree($dir, 0);\r
+\r
+?>\r