reading files to a <select>

[Anon]

Does anyone have the while code to read files from a directory into a <select> list?

thanks

[Anon]

$handle=opendir('/path/to/files');

print "<select>\n";
while (false !== ($file = readdir($handle))) {
print "<option>$file</option>\n";
}
print "</select>\n";

closedir($handle);