search.html

javascript即用即差核心对象手册

<META HTTP-EQUIV="expires" CONTENT="0"> 
<form >
   查找<input type="text" name="sch">
   <input type="button" value="查找" onClick="SearchinDrives()"><br>
   <input type="radio" name="forfd" checked="checked"  value="file">文件
   <input type="radio" name="forfd" value="folder">文件夹<br>
   <div id="info"></div>
   <div id="result"></div>
</form>
<script>
   var oFso=new ActiveXObject("Scripting.FileSystemObject");
  //该子函数实现在全部可用磁盘驱动器中查找指定内容
  function SearchinDrives()
  {
         var str="";
         //遍历磁盘
		 var strname=document.forms[0].sch.value;
		 if(document.forms[0].forfd[0].checked)
		     strtype="file";
		 else
		     strtype="folder";
	     var odrvs=new Enumerator(oFso.Drives)
         while(!odrvs.atEnd())
	        {
                  var drv=odrvs.item();
			      if(drv.IsReady)
			         {
						   if(strtype=="file")
					         {
			                       if(oFso.FileExists(oFso.BuildPath(drv.path,strname)))
				                        str=oFso.BuildPath(drv.path,strname);
					          }
		                  else
					          {
			                         if(oFso.FolderExists(oFso.BuildPath(drv.path,strname)))
             				             str=oFso.BuildPath(drv.path,strname);
					           }
			               if(str =="")
				              {
							       var rfd=oFso.GetFolder(drv.RootFolder);
							       var oFds=new Enumerator(rfd.SubFolders);
							       while(!oFds.atEnd())
							          {
							              var fd=oFds.item();
								           str=searchInFolder(fd.Path,strname);
								           if(str!="")
								               {
											      document.all("result").innerHTML+=str+"<br>";
												  str="";
											    }
										   oFds.moveNext();
							           }  
				               }
					 }
			        odrvs.moveNext();
               }

     }
     //该子函数实现了在指定的目录中查找指定文件或文件夹
    function searchInFolder(path,strname)
	{
          var str="";
          if(strtype=="file")
	        {
		          if(oFso.FileExists(oFso.BuildPath(path,strname)))
			          str=oFso.BuildPath(path,strname);
		     }
         else
	         {
		           if(oFso.FolderExists(oFso.BuildPath(path,strname)))
			           str=oFso.BuildPath(path,strname);
		      }
	      if(str=="")
	        {
	              var fd=oFso.GetFolder(path);
                   //遍历该目录的子目录
		          var ofds=new Enumerator(fd.SubFolders);
		          while(!ofds.atEnd())
		             {
			              var subfd=ofds.item();
						  window.status="正在搜索"+subfd.Path;
				           str=searchInFolder(subfd.Path);
				           if(str!="")
						     {
				                document.all("result").innerHTML+=str+"<br>";
								return str;
								str="";
							 }
						    ofds.moveNext();
			          }
					  return "";
		     }
      }
</script>