Problème de renommage

Bonjour,
Dans le script ci-dessous, j'opère un simple travail de renommage.
Le processus fonctionne, mais je le trouve beaucoup trop "lourd".
Y aurait-il moyen de l'assouplir, peut-être en mixant les 2 commandes for du début ?

@echo off
setlocal ENABLEDELAYEDEXPANSION

@rem récupération de l'information sur le nom de l'arborescence
for /f %%l in ('dir Z:\*. /B /S /O:GEN ^| findstr /C:arbo\\[a-zA-Z0-9] /R') do set arbo=%%~dpl

@rem recuperation du nom du fichier commençant par G
for /f %%m in ('dir Z:\*. /B /S /O:GEN ^| findstr /C:arbo\\[a-zA-Z0-9] /R') do set file=%%~nxm

@rem On supprime le la 1ère lettre "G" du nom du fichier
set ID=!file:G=!

@ Avec le code obtenu on va chercher une information (commande "search" interne au programme utilisé)
for /F "tokens=2 delims='" %%n in ('"search -i !ID! | find "zmsg""') do set xmsg=%%n
set Codage=!file!.!xmsg!
ren !arbo!!file! !Codage!

En vous remerciant par avance.
Ka-el