@echo off & cd /d "%~dp0"
setlocal enabledelayedexpansion
(
	for /d %%i in (*) do (
		pushd "%%i"
		set "a=0"
		for /f "delims=" %%a in ('dir /s /b *.png *.jpg 2^>nul') do (set /p="%%a,"<nul & set "a=1")
		if "!a!"=="1" echo.
		popd
	)
) > "list.csv"
echo list.csv
pause&exit
复制代码

<# :
cls&echo off&cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
pause
exit
#>
$outfile=".\all.csv";

$codes=@'
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
public static class ExpDir
{
    [DllImport("Shlwapi.dll", CharSet=CharSet.Unicode)]
    public static extern int StrCmpLogicalW(string p1, string p2);
    public static string[] Sort(string[] f)
    {
        Array.Sort(f, StrCmpLogicalW);
        return f;
    }  
}
'@;
Add-Type -TypeDefinition $codes;

[System.Collections.ArrayList]$s=@();
$folders=@(dir -literal "."|?{$_ -is [System.IO.DirectoryInfo]});
for($i=0;$i -lt $folders.length;$i++){
    write-host $folders[$i].Name;
    $files=@(dir -literal $folders[$i].FullName|?{$_ -is [System.IO.FileInfo]}|%{$_.Name});
    if($files.length -ge 1){
        $arr=[ExpDir]::Sort($files);
        $line=@($arr|%{'"'+$folders[$i].FullName+'\'+$_+'"'}) -join "`t";
        [void]$s.add($line);
    }
}
[IO.File]::WriteAllLines($outfile, $s, [Text.Encoding]::Unicode);
复制代码