Readdir script

Jeg har fundet dette script på http://php.net/readdir

<?php
  /*
    edit $path to the directory you want to use
    edit $file_types to change the file types to show
  */
  function file_type($file){
      $path_chunks = explode("/", $file);
      $thefile = $path_chunks[count($path_chunks) - 1];
      $dotpos = strrpos($thefile, ".");
      return strtolower(substr($thefile, $dotpos + 1));
  }
  $file_count = 0;
  $path = "files/";
  $file_types = array('jpeg', 'jpg', 'ico', 'png', 'gif', 'bmp');
  $p = opendir($path);
      while (false !== ($filename = readdir($p))) {
          $files[] = $filename;
      }
  sort($files);
      foreach ($files as $file) {
          $extension = file_type($file);
          if($file != '.' && $file != '..' && array_search($extension, $file_types) !== false){
              $file_count++;
              echo '<a href="'.$path.$file.'">'.$file.'</a> <br/>';
          }
      }
    if($file_count == 0){
        echo "<b>No file match your file types</b>";
    }
?>

Den virker udemærket, men hvordan skriver man den om så den ikke udskriver endelsen til filnavnet. Dvs. istedet for at skrive:

<a href="filer/fil.jpg">fil.jpg</a>

Skal den skrive:

<a href="filer/fil.jpg">fil</a>