powerbat

@set @n=0//& dir /a-d/s/b *.tif| cscript -nologo -e:jscript "%~f0" >a.txt& pause& start notepad a.txt& exit /b

fso = new ActiveXObject("Scripting.FileSystemObject");
sh = new ActiveXObject("Shell.Application");
objFolder = sh.NameSpace(0);
for (i=0; i<255; i++) {
    s = objFolder.GetDetailsOf(null, i);
    if (s=="水平分辩率") x=i;
    if (s=="垂直分辩率") y=i;
}
WScript.Echo("文件路径: 水平分辩率, 垂直分辩率");
ts = WScript.StdIn;
while (!ts.AtEndOfStream) {
    f = ts.ReadLine();
    objFolder = sh.NameSpace(fso.GetAbsolutePathName(f+"/.."));
    objFolderItem = objFolder.ParseName(fso.GetFileName(f));
    WScript.Echo( f + ":" + objFolder.GetDetailsOf(objFolderItem, x) 
        + "," + objFolder.GetDetailsOf(objFolderItem, y) );
}
复制代码

powerbat

回复 12# 001011


    第一行改成

@set @n=0//& cd /d "自定义路径"& dir /a-d/s/b *.tif *.jpg *.png *.图片格式| cscript -nologo -e:jscript "%~f0" >a.txt& pause& start notepad a.txt& exit /b
复制代码

powerbat

回复 16# 001011


    XP下确实不行，看来只有用第三方了。