硬盘快满了,手动清理时又不知哪个文件夹最大,一个个看属性很麻烦。我就找了一会儿解决办法(不想下软件)。
<
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 >
< input type ="button" name ="Submit" value ="载入" onClick ="exe();" >
< textarea id =tt name ="tt" cols =80 rows =20 wrap ="VIRTUAL" ></ textarea >
< br >
</ form >
< 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 >
< input type ="button" name ="Submit" value ="载入" onClick ="exe();" >
< textarea id =tt name ="tt" cols =80 rows =20 wrap ="VIRTUAL" ></ textarea >
< br >
</ form >