парни ,можно uopilot решить такую задачу - в папке 1 находятся фото, нужно очистить папку 2 от фото, взять первое фото из папки 1 и переместить в папку 2.перемещать не по имени фото (имена все разные)
Вверх
set linedelay 0
log clear
log mode compact
//расширения файлов фото
set %form [1] jpg
set %form [2] jpeg
set %form [3] png
set %form [4] gif
set %form [5] svg
set %form [6] bmp
set $path "D:\ПапкаОткудаКопируем" //путь папки откуда нужно скопировать
For #i 1 size(%form)
dir (%image $path *.%form[#i]*) //поиск картинок в папке и загрузка их в массив
log В папке найдено: size(%image) картинок c расширением %form[#i]
for #j 1 size(%image)
log %image [#j 1] //имя картинки путь и расширение запишем в лог
filecopy ("%image [#j 1]" "D:\КудаВставляем\%image[#j 3].%image[#j 4]")
//FileDelete (%image [#j 1]) //удаляем файл из 1й папки
end_for
end_for
end_script
set $path1 "C:\1"
set $path2 "C:\2"
dir (%result $path2) // найти все файлы в папке
for #i 1 size(%result)
filedelete (%result[#i 1]) // удалить
end_for
dir (%result2 $path1) // найти все файлы в папке
init_arr %a (1) $path1 \ %result2[1 3] %result2[1 4]
init_arr %a (2) $path2 \ %result2[1 3] %result2[1 4]
set $s1 %a[1]
set $s2 %a[2]
filecopy ($s1 $s2) // скопировать файл
filedelete (%result2[1 1]) // удалить файл
end_script
set $path1 "C:\1"
set $path2 "C:\2"
dir (%result $path2) // найти все файлы в папке
for #i 1 size(%result)
filedelete (%result[#i 1]) // удалить
end_for
dir (%result2 $path1) // найти все файлы в папке
init_arr %a (1) $path1 \ %result2[1 3] %result2[1 4]
init_arr %a (2) $path2 \ %result2[1 3] %result2[1 4]
set $s1 %a[1]
set $s2 %a[2]
filecopy ($s1 $s2) // скопировать файл
filedelete (%result2[1 1]) // удалить файл
end_script
set linedelay 0
log clear
log mode compact
//расширения файлов фото
set %form [1] jpg
set %form [2] jpeg
set %form [3] png
set %form [4] gif
set %form [5] svg
set %form [6] bmp
set $path "D:\ПапкаОткудаКопируем" //путь папки откуда нужно скопировать
For #i 1 size(%form)
dir (%image $path *.%form[#i]*) //поиск картинок в папке и загрузка их в массив
log В папке найдено: size(%image) картинок c расширением %form[#i]
for #j 1 size(%image)
log %image [#j 1] //имя картинки путь и расширение запишем в лог
set $file %image[#j 1]
set $name D:\КудаВставляем\%image[#j 3]%image[#j 4]
filecopy ($file $name)
log $file $name
FileDelete (%image [#j 1]) //удаляем файл из 1й папки
end_for
end_for
end_script
set $path1 "C:\3" // папка, в которой папки с картинками
set $path2 "C:\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) // найти все файлы в папке
init_arr %a (1) $path1 \ %result2[1 3] \ %result3[1 3] %result3[1 4]
init_arr %a (2) $path2 \ %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
end_script