                                                                
<?php
//-->-->
//-- This function creates an Html select element which allows the
//-- user to choose from the files and directories in the current 
//-- directory.
    
  function fnSwitchFileSelect
    ($sCurrentDirectory, 
     $sFormActionUrl)
  {

    $sReturn = "
    <form  action = '$sFormActionUrl'  method = 'get'  
             name = 'switchFileForm'>
    <input   type = 'submit'  
            value = 'Switch to a Different File'>
    <select  name = 'file'
         onChange = 'document.forms.switchFileForm.submit()'>
    <option value=''>-Choose A File To Switch To-</option>";
    //$sCurrentDirectory = dirname($sFilePath);

      $aaFiles = '';
      $dh  = opendir($sCurrentDirectory);
      while (false !== ($sMemberFileName = readdir($dh)))
      {
        $sCurrentFilePath = "$sCurrentDirectory/$sMemberFileName";
        if (is_dir($sCurrentFilePath))
        {
           if ($sMemberFileName != '.')
           {
              $aaDirectories[] = $sMemberFileName;
           }
        }
        else
        {
           $aaFiles[] = $sMemberFileName;
        }
      } //-- while more files in the directory
       
      sort($aaFiles);
      sort($aaDirectories);
      reset($aaFiles);
      reset($aaDirectories);
      
      $sFileSeparator = '\\';
      foreach ($aaDirectories as $sMemberFileName)
      {
        if ($sMemberFileName == '..')
        {
          //$sParentDirectory = preg_replace('#[^'.$sFileSeparator.']+$#', '', $sCurrentDirectory);
          $sParentDirectory = basename($sCurrentDirectory);
          $sReturn = 
           $sReturn."<option  value = '".htmlspecialchars($sParentDirectory)."'>
          [Parent Directory]</option> ";
        }
        else
        {
           $sMemberFilePathEncoded = 
             htmlspecialchars("$sCurrentDirectory/$sMemberFileName");
           $sReturn = $sReturn."<option  value = '$sMemberFilePathEncoded'>
                 $sMemberFileName/</option> ";
        } //-- 
      } //-- foreach directory

      foreach ($aaFiles as $sMemberFileName)
      {
         $sMemberFilePathEncoded = 
             htmlspecialchars("$sCurrentDirectory/$sMemberFileName");
         $sReturn = $sReturn."<option  value = '$sMemberFilePathEncoded'>
            $sMemberFileName</option> ";
      } //-- foreach file

    $sReturn = $sReturn."
      </select>
      </form>";

     return $sReturn;

   } //-- function: fnSwitchFileSelect


//--<--<--<--<--<--<--<--<
?>

                                                