Collect all bitmap from object(s) then do something

example case of do something:
make a neat folder, rename each suffix files by properties name of maps then
move that files to new folder(the naming is object name), such as :

"d:\Maps\head_character_00.jpg " become "d:\Maps\JhonDoe_head\head_character_diffuse.jpg"
"e:\Maps\head_character_01.jpg " become "d:\Maps\JhonDoe_head\head_character_opacity.jpg"
"c:\Doc\head_character_02.jpg " become "d:\Maps\JhonDoe_head\head_character_occlusion.jpg"
"d:\Maps\head_character_03.jpg " become "d:\Maps\JhonDoe_head\head_character_bump.jpg"

and etc.

if the filenames are same then a script can be copy the files or skipping (as an option) or move to global folder.

it can be applied to random material (standard, multi material, vraymat, mentalray material and etc)
and random maps (sss, bitmap, fallof, blend and etc )

it would be nice to optimize and make faster(it can use timestamp() fn ) or simple writing maybe.

can start with this function

    fn GrabAllMaps mat arr = 
	(
		if mat.numsubs != 0 then (
			for i = 1 to mat.numsubs do (
				if mat[i] != undefined then (
					if classof mat[i] == SubAnim then (
						if superclassof mat[i].object == textureMap then (
							if mat[i].object != undefined then append arr mat[i].object
						)
					)
				  GrabAllMaps mat[i] arr
				)
			)
		)
	)

or perhaps you have another idea

hope this is a discussion to find a solution.

Thanks and Regards :)