Windows EXE:http://en.sourceforge.jp/projects/sfnet_flatfolder/
или AHK:
fileselectfolder,MyFold,::{20d04fe0-3aea-1069-a2d8-08002b30309d}
SetWorkingDir, %MyFold%
loop, *.*,0,1
{
parentpath := RegExReplace(A_LoopFileDir,"\\","-")
;StringReplace, parentpath, A_LoopFileDir, \,-,All
newname = %parentpath%-%A_LoopFileName%
;msgbox %newname%
If a_loopfiledir <>
filemove, %a_loopfilefullpath%,%newname%
}
loop, %myfold%\*.*,2,1
fileremovedir, %a_loopfilefullpath%,1
exitapp
или воспользуйтесь Справочником Opus
или Powershell
(ls -r -include *.jpg) | % { mv -literal $_ $_.Name.Insert(0, [String]::Format("{0} - ", $_.Directory.Name))}
или партия (как указано выше)
или ручной поиск, вырезать и вставлять, как указано выше
Есть много способов, в зависимости от ваших навыков и склонностей, вы можете выбрать любой из них, и уточнить в соответствии с вашими потребностями.
Вам может понадобиться это Удалить пустые каталоги после вышеуказанной операции