Здравствуйте, гость ( Вход | Регистрация )
set $path1 "D:\3" // папка, в которой папки с картинкамиset $path2 "D:\2"dir (%result $path2) // найти все файлы в папкеfor #i 1 size(%result) filedelete (%result[#i 1]) // удалитьend_fordir (%result2 $path1 "*.*" norecursion) // найти все папкиset $path3 %result2 [1 1]dir (%result3 $path3) // найти все файлы в папкеset %a[1 1] $path1set %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] $path2set %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