灯塔彭于晏

回复 3# WHY


    好像不太可以。还是重新按数字的顺序，依次排列了。

Batcher

回复 5# 灯塔彭于晏


    你先试试其他几个代码是否达到目标？

ivor

用powershell 更方便

powershell "Add-Type -AssemblyName System.Drawing;dir *.jpg,*.bmp,*.png,*.gif |%{$_.Name,[System.Drawing.Image]::FromFile($_).size -join ' '}"
复制代码

微信图片_20201229083132.jpg {Width=1920, Height=887}
微信图片_20201229083143.jpg {Width=960, Height=1920}
微信图片_20201229083146.jpg {Width=887, Height=1920}
微信截图_20201229082837.png {Width=688, Height=527}

灯塔彭于晏

回复 2# Batcher


    抱歉，我没描述清楚。 我是想按照桌面的图片的顺序来输出结果，但代码的结果是重新排序了。 可以看截图，明显顺序和桌面是不一样的。
希望可以和桌面一样。

WHY

保存为 Test.js， 双击运行

var Img = new ActiveXObject('WIA.ImageFile');
var fso = new ActiveXObject('Scripting.FileSystemObject');
var arr = [];
var e = new Enumerator( fso.GetFolder('.').Files );
for(;!e.atEnd();e.moveNext()){
    var file = e.item().Name;
    if( !/\.(?:jpg|bmp|png|gif)$/i.test(file) ) continue;
    Img.LoadFile(file);
    arr.push(file + ' ' + Img.Width + 'x' + Img.Height + 'x' + Img.HorizontalResolution);
}
fso.OpenTextFile('图片信息.txt', 2, true).WriteLine( arr.join('\r\n') );
WSH.Echo('Done');
复制代码

WHY

for %%a in (%ext%) do ... 应该是先按%ext%中的扩展名排序、扩展名相同再按文件名排序的，先jpg，然后bmp，再然后png，
把第7行改成：

(for /f "delims=" %%a in ('dir /b /on *.jpg,*.bmp,*.png,*.gif') do (
复制代码

试试行不行。

Batcher

回复 1# 灯塔彭于晏


    你希望改成什么效果呢？