Einzelnen Beitrag anzeigen

XeRo

Registriert seit: 23. Okt 2003
Ort: Warth
461 Beiträge
 
Delphi 7 Enterprise
 
#21

Re: Alle Dateien eines Server-Ordners auslesen

  Alt 25. Okt 2006, 16:48
So. folgendes Script macht alles was ich brauche:
Code:
<?php
# gibt alle dateien in $dir als array zurück (ganzer dateipfad). wird ein verzeichnis gefunden wir auch dieses durchsucht.
function readDirRec($dir = "./") {
    if(!$dh = opendir($dir)) return false;
   
    if(substr($dir, -1) != "/") $dir .= "/";
    $files = array();
   
    while($file = readdir($dh)) {
        $path = $dir . $file;
        if($file == "." || $file == "..") continue;
       
        if(is_dir($path)) {
            if(!$sub = readDirRec($path)) continue;
           
            $files = array_merge($files, $sub);
        }
        else {
            $files[] = $path;
        }
    }
   
    closedir($dh);
    sort($files);
    return $files;
}
# verzeichnis durchsuchen
$dir = readDirRec(".");

# $dir nach strings durchsuchen welche auf txt ende (case-insensitive)
$gifs = preg_grep("/\.(txt)$/i", $dir);

# zeige alle gefundenen dateien
foreach($gifs as $path) {
    echo "$path
";
}
?>
  Mit Zitat antworten Zitat