怎么用javascript写一个能查找文件或文件夹的网页

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD><BODY>
<textarea name=memo cols=100 rows=20></textarea>
<SCRIPT LANGUAGE="JavaScript">
<!--
function ShowFolderList(folderspec,n)
{
   var fso, f, fc, s,ff,fs;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFolder(folderspec);
   fc = new Enumerator(f.SubFolders);
   document.write("&cedil;&Atilde;"+folderspec+"&Auml;&iquest;&Acirc;&frac14;&Iuml;&Acirc;&Icirc;&Auml;&frac14;&thorn;&frac14;&ETH;:<br>");
   for (; !fc.atEnd(); fc.moveNext())
   {
      for(i=0;i<=n;i++){
document.write("&nbsp;");
}
      document.write(fc.item()+"<br>");
     ShowFolderList(fc.item(),n+1);
 ShowFiles(fc.item(),n+1);
//      s += "\n";
   }
//   return(s);
}
function ShowFiles(folderspec,n){
   fso = new ActiveXObject("Scripting.FileSystemObject");
  f_detail=fso.GetFolder(folderspec);
  fc_detail=new Enumerator(f_detail.files);
  if (fc_detail.atEnd()){
  document.write("&cedil;&Atilde;"+folderspec+"&Auml;&iquest;&Acirc;&frac14;&Iuml;&Acirc;&Icirc;&Auml;&frac14;&thorn;:<br>");
  }
  else{
  document.write("&cedil;&Atilde;"+folderspec+"&Auml;&iquest;&Acirc;&frac14;&Iuml;&Acirc;&Icirc;&THORN;&Icirc;&Auml;&frac14;&thorn;&pound;&iexcl;<br>");
  }
  for (; !fc_detail.atEnd();fc_detail.moveNext())
{
      for(i=0;i<=n;i++){
document.write("&nbsp;");
}
document.write(fc_detail.item()+"<br>");
// fa += "<br>";
}
fc_detail.close
}
var folderspec="c:\\install\\"
ShowFolderList(folderspec,1)
//-->
</SCRIPT>
</BODY>
</HTML>