Via Batch die Abmessung von JPG-Dateien auslesen und in bestimmte Ordner verschieben

@echo off & setlocal
set "Datei=D:\PIC00001.JPG"  

set G=%temp%\GetExtAttr.vbs
 >%G% echo Set fso=CreateObject("Scripting.FileSystemObject"):Set Sh=CreateObject("Shell.Application")  
>>%G% echo Set Fld=Sh.NameSpace(fso.GetParentFolderName(WScript.Arguments(0)))
>>%G% echo WScript.Echo Fld.ParseName(fso.GetFileName(WScript.Arguments(0))).ExtendedProperty("Dimensions")  

for /f "tokens=1,3" %%i in ('cscript //nologo %G% "%Datei%"') do set "W=%%i" & set "H=%%j"  
if defined W echo %Datei%: %W%_%H%

@echo off & setlocal
set "Ordner=D:\Bilder"  

set G=%temp%\GetExtAttr.vbs
 >%G% echo Set fso=CreateObject("Scripting.FileSystemObject"):Set Sh=CreateObject("Shell.Application")  
>>%G% echo Set Fld=Sh.NameSpace(WScript.Arguments(0)):For Each File In Fld.Items
>>%G% echo If LCase(fso.GetExtensionName(File))="jpg" Then:D=Split(Fld.ParseName(File).ExtendedProperty("Dimensions")):WScript.Echo File^&"|"^&D(0)^&"|"^&D(2):End If:Next  

pushd "%Ordner%"  
for /f "tokens=1-3 delims=|" %%i in ('cscript //nologo %G% "%Ordner%"') do (  
    echo %%i - Breite: %%j Hoehe: %%k
    if %%j geq 3000 (echo move "%%i" "D:\Bilder\sortiert\ab3000") else (  
	    if %%j geq 2000 (echo move "%%i" "D:\Bilder\sortiert\ab2000") else (  
            echo move "%%i" "D:\Bilder\sortiert\unter2000"  
        )
    )
)
popd

If WScript.Arguments.Count < 1 Then WScript.Quit 2
Set objFSO = CreateObject("Scripting.FileSystemObject")  
strSrcDir = objFSO.GetAbsolutePathName(WScript.Arguments(0))
If Not objFSO.FolderExists(strSrcDir) Then WScript.Quit 1
Set objShell = CreateObject("Shell.Application")  
For Each objFile In objFSO.GetFolder(strSrcDir).Files
  If LCase(objFSO.GetExtensionName(objFile.Name)) = "jpg" Then  
    WScript.Echo objFile.Path & "?" & GetFileDimensions(objFile.Path)  
  End If
Next

Function GetFileDimensions(strFileFullName)
  If objFSO.FileExists(strFileFullName) Then
    Set objFolderItem = objShell.Namespace(objFSO.GetParentFolderName(strFileFullName)) _ 
      .ParseName(objFSO.GetFileName(strFileFullName))
    GetFileDimensions = objFolderItem.ExtendedProperty("Dimensions")  
  End If
End Function

@echo off &setlocal
set "SourcePath=D:\Pfad\zu\Bildern"  

for /f "tokens=1,2 delims=?" %%a in ('cscript //nologo getJpgDim.vbs "%SourcePath%"') do (  
  echo %%a
  echo %%b
  echo ----------------
)

pause

#!/usr/bin/perl

use strict;
use warnings;

opendir ORDNER, "./" or die "geht nicht: $!\n";  

my @bilder = grep { /\.jpg/ } readdir ORDNER;

my $bild;
foreach $bild (@bilder) {
    my ($name, $format, $res, $a, $b, $c, $size, $d, $e) = split /\s/, `identify $bild`;
    my ($breite, $hoehe) = split "x", $res;  
    if ($hoehe > 1000) {
        system ("cp $name GrosseBilder");  
    }
    else {
        system ("cp $name KleineBilder");  
    }
}

md "D:\Bilder\sortiert\%%jx%%k" 2>nul  
echo move "%%i" "D:\Bilder\sortiert\%%jx%%k"