文件夹查看器（自娱自乐:）

硬盘快满了，手动清理时又不知哪个文件夹最大，一个个看属性很麻烦。我就找了一会儿解决办法（不想下软件）。

 

< title >  目录查看  </ title >
< head >
< META  NAME ="Author"  CONTENT ="mingzhil" >

< script  language ="javascript" > ...  
var s; 
s=""; 

function ShowFolderFileList(i,folderspec,dep) ...{ 
    //alert(i+" "+folderspec+" "+dep);
    var fso,f,fc,name; 
    var url,str,file,filename; 
    var i; 
    fso = new ActiveXObject("Scripting.FileSystemObject"); 
    f = fso.GetFolder(folderspec); 
    s += i++ + " " + f.size/1000000 + " MB //" + f.Name + " "; 
    if(i>dep) return ( s );
    fc = new Enumerator(f.SubFolders); 
    for (; !fc.atEnd(); fc.moveNext()) ...{ 
        ShowFolderFileList(i,fc.item(),dep); 
    } 
    return( s ); 
} 

function exe() ...{ 
    s="";
    document.form1.tt.value=ShowFolderFileList(1,document.form1.t.value,
    document.form1.dep.value) ;
} 
</ script >  
</ head >
< CENTER > 文件夹查看器　－－　this
</ CENTER >

< form  id =form1  name ="form1"  method ="post" >  
地址： < input  id =t  name ="t"  type ="text"  id ="t"  
value ="C:/Documents and Settings/Administrator/Favorites"  size ="80" >  
< br >
层数： < input  id =dep  name =dep  value =2 >
&nbsp; < input  type ="button"  name ="Submit"  value ="载入"  onClick ="exe();" >  
< textarea  id =tt  name ="tt"  cols =80  rows =20  wrap ="VIRTUAL" ></ textarea >  
< br >
</ form >