script herkent dir niet als dir

<?
error_reporting(E_ALL);

// This is the directory to list files for.
$theDirectory = "dir"; //default: .

//own scandir
$dir = $theDirectory;
$dirlist = scandir($dir);

//print_r($dirlist);

echo "<table><tr><td>type</td><td>name</td><td>dir</td></tr>";
echo "<tr><td colspan='3'align='right'style='color: #FF0000;'>alles</td></tr>";

foreach ($dirlist as $hit){
    //$type = filetype($hit);
		$type = "file";
		$pretype = is_dir($hit);
		if ($pretype == TRUE){$type = "dir";}
		$path = realpath($hit);
		
	  echo "<tr>";
		echo "<td>".$type."</td>";
		echo "<td>".$hit."</td>";
		echo "<td>".$path."</td>";
		echo "</tr>";
		
}
echo "<tr><td colspan='3'align='right'style='color: #FF0000;'>alleen dirs</td></tr>";

foreach ($dirlist as $dir){
    //if (filetype($dir) == 'dir'){
		if ($type == "dir"){
		    echo "<tr><td>map</td><td>".$dir."</td><td>n.v.t.</td></tr>";
				if (($dir !== ".") and ($dir !== "..")){
				//echo "<tr><td colspan='3'>vervolg<td></tr>";
				    $subdirlist = scandir($dir);
						
						foreach ($subdirlist as $subhit){
    						  //$subtype = filetype($subhit);
									$subtype = "file";
								  $presubtype = is_dir($hit);
		              if ($presubtype == TRUE){$type = "dir";}
									
									$subpath = realpath($subhit);
		
	  							echo "<tr>";
									echo "<td>".$subtype."</td>";
									echo "<td>".$subhit."</td>";
									echo "<td>".$subpath."</td>";
  								echo "</tr>";
						}						
				}
		}
}
echo ("</table>");
?>