$dir = @opendir("."))
while (($file = readdir($dir)) != false) {
----
}