$ph =  "D:\Image"
$Directory = "D:\Image\300"
if (![IO.Directory]::Exists("$Directory"))  
{
    $null = New-Item $Directory  -type directory
}
$Files = @()
$extlists = @('.tif','.ttif')
Foreach ( $ext in $extlists )
{
     Foreach ($File in [IO.Directory]::EnumerateFiles("$ph","*$ext","TopDirectoryOnly"))
     {
           $img = [System.Drawing.Image]::FromFile($File)
           $dpiX = $img.HorizontalResolution
           $img.Dispose()
           if ($dpiX -eq 300) {
               $Files += $File
           }
     }
}

$Files | Move-Item -Destination $Directory
复制代码

/*&cls
@echo off
set info=互助互利,支付宝扫码头像,感谢打赏
rem 有问题,可加QQ956535081及时沟通
title %info%
set "oldfolder=D:\xxx\源目录"
set "newfolder=D:\xxx\新目录"
set vdpi=300
if not exist "%oldfolder%\" (echo;"%oldfolder%" not found&goto end)
if not exist "%newfolder%\" md "%newfolder%\"
cd /d "%oldfolder%\"
for /f "delims=" %%a in ('dir /a-d/b/s *.tif^|cscript -nologo -e:jscript "%~f0" %vdpi%') do (
    echo;"%%a"
    move /y "%%a" "%newfolder%\"
)
:end
echo;%info%
pause
exit
*/

var fso=new ActiveXObject('Scripting.FileSystemObject');
var sa=new ActiveXObject('Shell.Application');
var v=0,objFolder=sa.NameSpace(0);
for(var i=0; i<350; i++){if(/^垂直分[辨辩]率/.test(objFolder.GetDetailsOf(null, i))){v=i;}}

while(!WSH.StdIn.AtEndOfStream){
    var f=fso.GetFile(WSH.StdIn.ReadLine());
    var objFolder=sa.Namespace(f.ParentFolder.Path);
    var objItem=objFolder.ParseName(f.Name);
    var vdpi=objFolder.GetDetailsOf(objItem, v).replace(/\D/g,'');
    if(vdpi==Number(WSH.Arguments(0))){WSH.echo(f.Path);}
}
复制代码

$Directory = "D:\Image\300"
if (![System.IO.Directory]::Exists($Directory)) {$null = New-Item $Directory  -type directory}
Add-Type -AssemblyName "System.Drawing"
ls * -Include *.tif,*.ttif |?{$img=[Drawing.Image]::FromFile($_);$img.HorizontalResolution -eq 300; $img.Dispose()}| Move-Item -Destination $Directory
"按任意键结束"
$null = [Console]::Readkey() 
复制代码

' &cls&@cscript -nologo -e:vbscript %0 & pause & exit /b
Option Explicit
On Error Resume Next
Dim srcDir ' As String
Dim dstDir ' As String
Dim arrPicExt ' As String()
Dim HorizontalResolution 'As Double
' 源目录
srcDir = "D:\image"
' 目标目录
dstDir = "D:\image\300"
' 扩展名列表
arrPicExt = Array("tif","tiff")
' 图片水平分辨率
HorizontalResolution = 300

Dim fso,wiaimage
Set fso = CreateObject("Scripting.FileSystemObject")
Set wiaimage = CreateObject("WIA.ImageFile")
ShowError
If Not fso.FolderExists(dstDir) Then
  fso.CreateFolder(dstDir)
End If
ShowError
ProcessImage fso.GetFolder(srcDir)
ShowError

Set fso = Nothing
Set wiaimage = Nothing

Function Includes(ByRef arrIn,ByRef strExt)
  Dim Element
  For Each Element In arrIn
    If Element = strExt Then
      Includes = True
      Exit Function      
      End If
    Next
  Includes = False
End Function

Sub ProcessImage(objFolder)
  Dim objFile
  For Each objFile In objFolder.Files
     If Includes(arrPicExt,LCase(fso.GetExtensionName(objFile.Name))) Then
      wiaimage.LoadFile objFile.Path
      ShowError
      If wiaimage.HorizontalResolution = HorizontalResolution Then
        WSH.Echo "移动 """ & objFile.Path & """ 到 """ & dstDir & "\"""
        objFile.Move dstDir & "\"
        ShowError
      End If
    End If
  Next
End Sub

Sub ShowError()
  If Err.Number <> 0 Then
    WSH.Echo "Err # " & Err.Number & vbNewLine & _
    "Description: " & Err.Description & vbnewline & _
    "Source: " & Err.Source
    Err.Clear
  End If
End Sub
复制代码