размер фото, определённый размер фото Опции

[portos]

есть скрипт

script

Код

set $path1 "D:\3"  // папка, в которой папки с картинками
set $path2 "D:\2"

dir (%result $path2)     // найти все файлы в папке
for #i 1 size(%result)
    filedelete (%result[#i 1])    // удалить
end_for

dir (%result2 $path1 "*.*" norecursion)   // найти все папки

set $path3 %result2 [1 1]
dir (%result3 $path3)     // найти все файлы в папке

set %a[1 1] $path1
set %a[1 2] "\"
set %a[1 3] %result2[1 3]
set %a[1 4] "\"
set %a[1 5] %result3[1 3]%result3[1 4]

set %a[2 1] $path2
set %a[2 2] "\"
set %a[2 3] %result3[1 3] %result3[1 4]

set $s1 %a[1]
set $s2 %a[2]

filecopy ($s1 $s2)      // скопировать файл
filedelete (%result3[1 1])  // удалить файл
if  size(%result3) = 1 or size(%result3) = 0  // если в папке был 1 файл или папка пустая, то удалить папку
    init_arr %a (3) $path1 \ %result2[1 3]
    DirRemove (%a[3])  // удалить папку
end_if

можно ли сделать так ,чтобы брало фото опредедёного размера (от 100 например),а потом удаляло папку

---
См. правило 1.18

Сообщение отредактировал Fors1k - 3.9.2020, 1:43

[portos]

можно на lua сделать:

в папке D\3 находятся папки с фото,нужно оставить только файлы jpg которые больше 100х100 пикс

[Fors1k]

в папке D\3 находятся папки с фото
нужно оставить только файлы jpg которые больше 100х100 пикс

Код

--lua
require"luaposh";PScode('void',{[[#}
#
$path = 'D:\3'
function Check-PicSize($p){#}
    $img = [Drawing.Image]::FromFile( $p.fullname )
    if($img.width -gt 100 -and $img.Height -gt 100)
    {$img.Dispose(); $true}else{$img.Dispose(); $false}
}
gci $path -file -rec|%{#}
    if(!($_.Extension -eq '.jpg' -and (Check-PicSize $_)))
    {ri $_.FullName}
}
#
]]})

Сообщение отредактировал Fors1k - 19.12.2020, 4:14