@if(0)==(0) echo off & dir /b /s /on/a-d
CScript.exe /NoLogo /E:JScript %0 >dir.xls
pause & exit
@end
var n=1024,m=1048576,k=1073741824,fso=new ActiveXObject("Scripting.FileSystemObject");
var Folder=fso.GetFolder(WScript.Arguments.Count()?WScript.Arguments.Item(0):".");
for(var e=new Enumerator(Folder.SubFolders);!e.atEnd();e.moveNext()){
var f=e.item();
if (f.Name!='System Volume Information') {
if(!(f.attributes%2)){
var Size=f.size;
switch(true){
case Size<n :
var s = Size + ' Byte';
break;
case Size<m :
var s = (Size/n).toFixed(2) + ' KB';
break;
case Size<k :
var s = (Size/m).toFixed(2) + ' MB';
break;
default :
var s = (Size/k).toFixed(2) + ' GB';
}
var d=f.datelastmodified;
var y=new Date(d);
var mont=y.getMonth()+1
WScript.Echo(f.Name+'\t' + s +'\t' );
}
}
}