$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;
$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;