@echo off
rem 测试前先备份原文件
for /f "delims=" %%a in ('dir /a-d/b/s *.jpg') do (
    if exist "..\CR2-1\%%~na.cr2" (
        copy "..\CR2-1\%%~na.cr2" "%%~dpa" /y
    ) else (
        if exist "..\CR2-2\%%~na.cr2" copy "..\CR2-2\%%~na.cr2" "%%~dpa" /y
    )
)
pause
复制代码

@echo off
cd /d "%~dp0"
for /f "delims=" %%i in ('dir /b /s /a-d *.jpg') do (
	for %%j in ("..\cr2-1\%%~ni.cr2" "..\cr2-2\%%~ni.cr2") do (
		if "%%~ti" equ "%%~tj" (
			copy "%%~j" "%%~dpi"
		)
	)
)
pause
复制代码

@echo off & for /f "delims=" %%i in ('dir /b /s /a-d *.jpg') do (
	for %%a in ("..\CR2-1\%%~ni.cr2") do if "%%~ti"=="%%~ta" copy "..\CR2-1\%%~ni.cr2" "%%~dpi" /y
	for %%a in ("..\CR2-2\%%~ni.cr2") do if "%%~ti"=="%%~ta" copy "..\CR2-2\%%~ni.cr2" "%%~dpi" /y
)
pause&exit/b
复制代码

@echo off &setlocal enabledelayedexpansion
>temp.vbs echo Set objFSO = CreateObject("Scripting.FileSystemObject"):Set objFile = objFSO.GetFile(WScript.Arguments(0)):Set shell = CreateObject("Shell.Application"):Set folderitem = shell.Namespace(objFile.ParentFolder.Path).ParseName(objFile.Name):WScript.Echo folderitem.ExtendedProperty("System.Photo.DateTaken")

for /f "delims=" %%i in ('dir /b /a-d *.jpg') do (
	for /f "delims=" %%x in ('cscript //nologo temp.vbs "%%i"') do set a=%%x
	for /f "delims=" %%f in ('dir /b /s /a-d "..\CR2-1\%%~ni.cr2" "..\CR2-2\%%~ni.cr2"') do (
		for /f "delims=" %%x in ('cscript //nologo temp.vbs "%%f"') do set b=%%x
		if "!a!" == "!b!" (copy %%f "%%~dpi" /y)
	)
)
del temp.vbs&pause
复制代码

@echo off &setlocal enabledelayedexpansion
>temp.vbs echo Set objFSO = CreateObject("Scripting.FileSystemObject"):Path = WScript.Arguments(0):Set Text = objFSO.CreateTextFile(WScript.Arguments(1)):Set Shell = CreateObject("Shell.Application"):Set objPath = Shell.NameSpace(Path):For Each File In objFSO.GetFolder(Path).Files:If LCase(Right(File.Name,4))=".jpg" Or LCase(Right(File.Name,4))=".cr2" Then:Set objFile = objPath.ParseName(File.Name):strDateTaken = objFile.ExtendedProperty("System.Photo.DateTaken"):Text.WriteLine File.Name ^& "：" ^& strDateTaken:End If:Next:Text.Close

cd..
set "pd=%cd%"
cd %~dp0
cscript //nologo temp.vbs "%cd%" "$.txt"
cscript //nologo temp.vbs "%pd%\CR2-1" "$1.txt"
cscript //nologo temp.vbs "%pd%\CR2-2" "$2.txt"

for /f "tokens=1*delims=：" %%a in ($.txt) do (
	for /f "tokens=1*delims=：" %%x in  ('type $1.txt^|findstr /ic:"%%~na"') do (
		if "%%b" == "%%y"  copy "%pd%\CR2-1\%%x" %~dp0 /y)
	for /f "tokens=1*delims=：" %%x in  ('type $2.txt^|findstr /ic:"%%~na"') do (
		if "%%b" == "%%y"  copy "%pd%\CR2-2\%%x" %~dp0 /y)
)
del $*.txt temp.vbs&pause
复制代码

@set @v=1 /* &echo off
(for /f "delims=" %%i in ('dir /b/s/a-d *.jpg') do for %%p in (
     "CR2-1","CR2-2") do for /f "delims=" %%a in (
     'dir /b/s "..\%%~p\%%~ni.cr2" ') do for /f "tokens=1-2 delims=;" %%x in (
     'cscript /e:jscript "%~f0" "%%i" "%%a" ') do if "%%x"=="%%y" copy "..\%%~p\%%~ni.cr2" "%%~dpi" /y
) 2>nul
pause&exit/b */
v=WSH.arguments, img=WSH.createObject('WIA.imageFile'), s='';
for (k=0; k<2; k++) {
     img.loadFile(v(k));
     if (img.properties.count<1 || !img.properties.exists('ExifDTOrig')) WSH.quit();
     s+=img.properties.item('ExifDTOrig').value+';'
}
WSH.echo(s), WSH.quit();
复制代码