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

[portos]

как изменить скрипт ,что бы в папке оставались только файлы jpg . так как скрипт оставляет фото правильного размера ,но и остаются файлы с другими расширениями. если можно изменить скрипт что бы лишнее файлы так же удалялись

[Fors1k]

скрипт оставляет фото правильного размера ,но и остаются файлы с другими расширениями

Этот скрипт оставляет только файлы jpg, которые больше, чем 100х100. Все остальные файлы удаляются.

[portos]

Этот скрипт оставляет только файлы jpg, которые больше, чем 100х100. Все остальные файлы удаляются.

не знаю почему ,но выдаёт ошибку

[portos]

не работает

[cirus]

как изменить скрипт ,что бы в папке оставались только файлы jpg

Добавить в конец скрипта:

Код

local resultarray, count = dir (path, "*.?*")  -- получить список всех файлов
log ("Найдено файлов: " .. tostring(count))
if count then      -- если файлы найдены
    for i=1, #resultarray do
        if  resultarray[i][4] ~= '.jpg' then     -- если не jpg
            log('Удаление файла: ' .. resultarray[i][1])
            ffi.C.DeleteFileA( resultarray[i][1] )  -- удалить файл
        end
    end
end

[portos]

работает ,огромное спасибо ... С наступающими праздниками Вас

[portos]

подскажите , сделал два скрипта
1. берёт фото с папки, в которой папки с картинками (3).удаляет фото и если папка становиться пустой удаляет её. потом создаёт в папке (2) новую папку и перемещает в неё 16 фото ,создаёт след. папку и перемещает в неё 16 фото и так пока папка (3) будет пустой

1 скрипт

set linedelay 0

set $p 0
set $h $p
set #h string_digits($h)
set #t #h + 1 // имя первой папки

:rrr

dircreate ("D:\2\#t") // cоздаём папку ,куда будем перемещать фото

repeat 16 // перемещаем 16 фото

set $path1 "D:\3" // папка, в которой папки с картинками
set $path2 "D:\2\#t" // папка ,куда будем перемещать фото

dir (%result $path2) // найти все файлы в папке

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 %ax (3) $path1 \ %result2[1 3]
DirRemove (%ax[3]) // удалить папку
end_if

end_repeat

set #t #t + 1 // следущая папка будет имя + 1

goto rrr

2. Создаёт папку с именем Photo в каждой папке, созданной первым скриптом

2 скрипт

set linedelay 0

dir (%result3 D:\2)
log Найдено файлов и папок: errorlevel
if size(%result3) > 0
for #i 1 size(%result3) // цикл для вывода пути всех найденных файлов в лог
set %a [1] %result3 [#i 1]
dircreate ("%a[1]\Photo")

end_for
end_if

end_script

что нужно добавить ,чтобы второй скрипт копировал одно фото с папки в созданную папку Photo (одно из 16 ,желательно не первую )

[Fors1k]

portos, какая разрядность у вашей операционной системы? х32 или х64?

[portos]

portos, какая разрядность у вашей операционной системы? х32 или х64?

64