@echo off
set "n=[1-9][0-9][0-9][0-9]:[0-9][0-9]:[0-9][0-9]"
for /f "tokens=1* delims=:" %%i in ('findstr /i "%n%" "*.jpg" ^|more^|findstr /i "\.jpg:%n%"') do (
    echo 文件 %%i 拍摄日期 %%j
)
pause
复制代码

Dim objSHELL, objFSO
Set objSHELL = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim Path, File, objPath, objFile, Name, vbStr
Path = objFSO.GetFile(WScript.ScriptFullName).ParentFolder
Set objPath = objSHELL.NameSpace(Path)
For Each File In objFSO.GetFolder(Path).Files
  If LCase(objFSO.GetExtensionName(File)) = "jpg" Then
    Name = File.ShortName
    Set objFile = objPath.ParseName(Name)
    For i = 0 To 50
      If objPath.GetDetailsOf(,i) = "相片拍照日期" Then _
        vbStr = vbStr & Name & vbTab & objPath.GetDetailsOf(objFile, i) & vbCrLf
    Next
  End If
Next
Set objFile = Nothing
Set objPath = Nothing
Set objSHELL = Nothing
objFSO.OpenTextFile("photo_list.txt", 2, True).Write vbStr
Set objFSO = Nothing
WScript.Echo "OK"
复制代码

:: 适用条件：二层目录下的JPG照片

@echo off
title 获取照片的eif信息和目录信息重命名

:: 1、首先获取照片的eif信息重命名
set "n=[1-9][0-9][0-9][0-9]:[0-9][0-9]:[0-9][0-9]"
for /f "delims=" %%a in ('dir /b /o /s /ad') do (
for /f "tokens=1-10* delims=:" %%i in ('findstr /i "%n%" "%%a\*.jpg" ^|more^|findstr /i "\.jpg:%n%"') do (
    ren "%%i:%%j" "%%k-%%l-%%m-%%n%%~xj"
))

:: 2、再获取照片的目录信息加入重命名
setlocal enabledelayedexpansion
for /f "tokens=1-6* delims=\" %%a in ('dir /b /o /s') do (
set "m=%%d_%%e_%%~nxf"
if /i "!m:~-3!" == "jpg" ren "%%~dpf%%d\%%e\%%f" "%%d_%%e_%%f"
set "n=%%d_%%~nxe"
if /i "!n:~-3!" == "jpg" ren "%%~dpe%%d\%%e" "%%d_%%e"
)

pause
复制代码