25 lip 2008

Lista plików w katalogu

 $sDir = "d:\\do_wysylki" if($sDir eq '');

opendir(SEND_DIR, $sDir)  or die "Couldn't open $dir for reading: $!";

@files = ();
while( defined ($file = readdir(SEND_DIR)) ) {

    next if ($file eq '.' or $file eq '..');

    my $filename = $file;
    push(@files, $filename);
}

closedir(SEND_DIR);

my $count  = @files; 

12 maj 2008

Generowanie listy plików dla katalogu

$dir = "/pliki/";

if (is_dir($dir)) {
    if ($dh = opendir($dir)) {
        while (($file = readdir($dh)) !== false) {
            if($file=='.' || $file=='..') continue;
         $file_list .= $file.'", "'.$dir . $file."\n";
        }
        closedir($dh);
    }

    $file_list = substr($file_list, 1);
}

echo $file_list;