CrLf

这句列举子目录下所有含标记的 jpg 文件，其他看着改吧

@findstr /s /m "rdf:Bag" *.jpg
复制代码

CrLf

@echo off
for /f "delims=" %%a in ('findstr /s /m "rdf:Bag" *.jpg') do set /a 含标记+=1
for /f "delims=" %%a in ('dir /s *.jpg') do set /a 总数+=1
set /a 无标记=总数-含标记
echo 该目录下共有%总数%张JPG图片，其中%含标记%张有标记，%无标记%张无标记>"共有%总数%张JPG图片，其中%含标记%张有标记，%无标记%张无标记.txt"
复制代码

CrLf

回复 5# 228630386


    举个栗子？

CrLf

那就这样，会慢点就是了

@echo off
for /f "delims=" %%a in ('findstr /s /m "rdf:Bag" *.jpg') do set /a 含标记+=1
for /f "delims=" %%a in ('findstr /s /m . *.jpg') do set /a 总数+=1
set /a 无标记=总数-含标记
echo 该目录下共有%总数%张JPG图片，其中%含标记%张有标记，%无标记%张无标记>"共有%总数%张JPG图片，其中%含标记%张有标记，%无标记%张无标记.txt"
复制代码

CrLf

回复 10# 228630386


    哦，逻辑有漏洞，已修改

CrLf

来一个系统原生的办法

1>1/* :
@echo off
for /f "delims=" %%a in ('dir /a-d /b /s *.jpg ^| cscript -nologo -e:jscript "%~0"') do (
	echo %%a>"%%a.txt"
)
pause & exit /b
*/

var filelist = WScript.StdIn.ReadAll().split(/\r?\n/)

var fso = new ActiveXObject('Scripting.FileSystemObject')
var shell = new ActiveXObject('Shell.Application')

var FLAG=0,NOFLAG=0

for(var i in filelist){
	var fullpath = fso.GetFile(filelist[i]).Path
	var namespace = shell.Namespace(fullpath.replace(/[^\\]*$/,''))
	var parsename = namespace.ParseName(fullpath.replace(/.*\\/,''))
	var value = namespace.GetDetailsOf(parsename,namespace.GetDetailsOf('',18)==='标记'?18:5)
	if(/\S/.test(value)){FLAG++}else{NOFLAG++}
}

WSH.Echo('该目录下共有'+(FLAG+NOFLAG)+'张JPG图片，其中'+FLAG+'张有标记，'+NOFLAG+'张无标记')
复制代码

CrLf

回复 21# 228630386


    你改过代码了吧，我第 20 行没出现过 exit