Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Alle Dateien eines Server-Ordners auslesen (https://www.delphipraxis.net/79606-alle-dateien-eines-server-ordners-auslesen.html)

XeRo 25. Okt 2006 16:48

Re: Alle Dateien eines Server-Ordners auslesen
 
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
";
}
?>


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:41 Uhr.
Seite 3 von 3     123   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz