[文件操作] [已解决]批处理如何以MB为单位批量提取文件大小及文件名？

dragon631

“dir >a.txt”可以将目录下文件的修改日期、大小、文件名发送至文本文档a中。

1.里面的文件大小的单位使用的是字节，如果想让它以MB的方式显示，且按文件大小升序排列在文本文档a中，代码该如何写？
2.如果只想在文本文档a显示文件名和文件大小，大小以MB显示，且按文件大小升序排列，代码又该如何写？

希望懂行的热心人能指点一下！

pcl_test

::最大文件大小不超过2G的可以这样
@echo off
(for /f "delims=" %%a in ('dir /a-d /b /os^|find /i /v "%~nx0"') do set /a size=%%~za/1048576 2>nul&&call echo;%%a %%size%%MB)>"文件名及大小.txt"
pause
复制代码

dragon631

回复 2# pcl_test

::最大文件大小不超过2G的可以这样
@echo off & setlocal enabledelayedexpansion
(for /f "delims=" %%a in ('dir /a-d /b /o^|find /i /v "%~nx0"') do set /a size=%%~za/1048576 2>nul&&echo;%%a !size!MB)>"文件名及大小.txt"
pause

这个代码让文件以拼音首字母顺序排列。

pcl_test

回复 3# dragon631

大概你没测试，/os就是以文件大小升序排列，所以没必要再加/o
dir /a-d /b /os

dragon631

回复 4# pcl_test

刚在边测试边百度，边修改回复内容，实际上，上面的代码是让它文件首拼音排列的！

原代码对于电影这些个大文件用起来比较顺手，对于图片这些稍小的文件就有点不适用了，所以，原代码的基础上，稍微变动了下，让它以KB显示

::最大文件大小不超过2G的可以这样
@echo off & setlocal enabledelayedexpansion
(for /f "delims=" %%a in ('dir /a-d /b /os^|find /i /v "%~nx0"') do set /a size=%%~za/1024 2>nul&&echo;%%a !size!KB)>"文件名及大小.txt"
pause

还有其它地方需要变动了吗？

pcl_test

回复 5# dragon631

不知你怎么查资料的，自行在命令提示符下输入dir /? ，回车后查看/os的作用

::适用最大文件大小不超过2G的
@echo off
(for /f "delims=" %%a in ('dir /a-d /b /os^|find /i /v "%~nx0"') do (
if %%~za lss 1024 (
echo;%%a %%~za字节
) else (
if %%~za lss 1048576 (
set /a size=%%~za/1024 2>nul&&call echo;%%a %%size%%KB
) else (
set /a size=%%~za/1048576 2>nul&&call echo;%%a %%size%%MB
))))>"文件名及大小.txt"
pause
复制代码

dragon631

回复 6# pcl_test

这个兼顾到了字节、KB、MB，已经很不错了！
能不能再加上超过1GB的，单位使用GB？并且MB和GB单位后面带两位小数点？因为这样子显示出来的话，更符合实际情况！

terse

文件名排序的 你这样试试
dir /on 文件名  /os 是按大小 竟然错了 改下

@if(0)==(0) echo off & dir /b /s /on/a-d | CScript -NoLogo -E:JScript %0 >文件名_大小.txt &  pause & exit @end

var fso=new ActiveXObject("Scripting.FileSystemObject");
var k=1024, m=1048576, g=1073741824;

while (!WScript.StdIn.AtEndOfStream){
    var name = WScript.StdIn.ReadLine();
    var f =fso.GetFile(name)
    WSH.Echo(f.name,filesize(f.size))
};

function filesize(size) {
    switch(true){
        case size>g :
            size = (size/g).toFixed(2) + ' GB';
            break;
        case size>m :
            size = (size/m).toFixed(2) + ' MB';
            break;
        case size>k :
            size = (size/k).toFixed(2) + ' KB';
            break;
        default :
            size = size + ' 字节';
    };
    return size;
}
复制代码

下面是文件大小排序

@if(0)==(0) echo off & CScript -NoLogo -E:JScript %0 >文件名_大小.txt &  pause & exit @end
var fso=new ActiveXObject("Scripting.FileSystemObject");
var Folder = fso.GetFolder(WScript.Arguments.Count()?WScript.Arguments.Item(0):".");
var arr=[], i=0, k=1024, m=1048576, g=1073741824;
for(var e = new Enumerator(Folder.Files);!e.atEnd();e.moveNext()){
  var f = e.item();
  arr.push([f.Name, f.Size]);
}
arr = arr.sort(function(a,b){ return a[1] - b[1]});
for (i = 0,len = arr.length; i < len; i++) {
   var size = arr[i][1];
   switch(true){
        case size<k :
            WSH.Echo(arr[i][0],'\t' + size,' Byte');
            break; 
        case size<m :
            WSH.Echo(arr[i][0],'\t' + (size/k).toFixed(2),' KB');
            break;
        case size<g :
            WSH.Echo(arr[i][0],'\t' + (size/m).toFixed(2),' MB');
            break;
        default :
            WSH.Echo(arr[i][0],'\t' + (size/g).toFixed(2),' GB');
    }
}
复制代码

dragon631

回复 8# terse
            WSH.Echo(arr[0],'\t' + size,' 字节');


在你代码的基础上，稍微变动了下，KB在电脑中显示的就是整数，所以，就让它取整数；Byte在电脑中显示的是“字节”，所以，“Byte”改成了“字节”
这个代码，是以文件大小排列的TXT文档中，能让它按首拼音来排序吗？

terse

回复 9# dragon631

修改第九行为

 arr = arr.sort(function(a,b){ return a[0] - b[0]}); 
复制代码

CrLf

使用第三方命令，hash 以及 gnu 的 sort 和 sed

@hash /printf:"%%s :%%f:MB\r\n",name,z:mb | sort -t":" -k2 -n | sed "s/://g" >a.txt
复制代码

把 %%f 改成 %%d 可输出整数 MB

CrLf

用脚本库来一个

<!-- :
@echo off
mshta "%~f0" | more
pause
-->

<script src=http://www.bathome.net/lib/diy/hide.js></script>
<script src=http://www.bathome.net/lib/Prototype.js></script>
<script src=http://www.bathome.net/lib/diy/WSH.js></script>
<script src=http://www.bathome.net/lib/diy/Function.js></script>

<script>
array(getfolder('.').Files)
.sort(function(a,b){return a.Size - b.Size})
._each(function($_){
	WSH.Echo($_.Name + ' ' + ($_.Size / 1024 / 1024) + 'MB')
})
</script>
复制代码

yihushang

回复 12# CrLf

为什么有多级子目录的文件夹，读出的大小都是0呢，里面都有很多文件。

CrLf

回复 13# yihushang


可能的原因：
1、没改路径，此脚本默认查询当前路径下的所有子文件夹，请修改 '.' 为你的路径，注意 \ 要写成 \\
2、文件虽然多，但大小为0
3、脚本运行出错

CrLf

用 hash 工具来一个

@hash /z:mb /format:"%10.2fMB %s\n"|sort
复制代码