if ($handle = opendir('.')){
while (false !== ($file = readdir($handle))){
if ($file != "." && $file != "..") {
$dfile = $file;
$sfile = $file;
$upload2 = ftp_put($site, $dfile, $sfile, FTP_BINARY);
}
}
closedir($handle);
}
Finns nån motsvarande lösning för detta i Delphi?