x子涵 2022-07-14 15:21 采纳率: 25%
浏览 43
已结题

bat如何改成能将文件夹里面的文件也能统计出来

@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' );


 }

}
}

  • 写回答

0条回答 默认 最新

    报告相同问题?

    问题事件

    • 系统已结题 7月22日
    • 创建了问题 7月14日

    悬赏问题

    • ¥20 Wpf Datarid单元格闪烁效果的实现
    • ¥15 图像分割、图像边缘提取
    • ¥15 sqlserver执行存储过程报错
    • ¥100 nuxt、uniapp、ruoyi-vue 相关发布问题
    • ¥15 浮窗和全屏应用同时存在,全屏应用输入法无法弹出
    • ¥100 matlab2009 32位一直初始化
    • ¥15 Expected type 'str | PathLike[str]…… bytes' instead
    • ¥15 三极管电路求解,已知电阻电压和三级关放大倍数
    • ¥15 ADS时域 连续相位观察方法
    • ¥15 Opencv配置出错