Créer la structure de l'arborescence ?

Bonjour,
Mon script:

Code:

---

1 2 3 4 5 6

@ECHO OFF SET z=STree.LOG TYPE NUL>"%z%" FOR /F "Delims=" %%a in ('DIR /s /b /on *.*') DO ( ECHO.%%~Pnxa>>"%z%" )

---

est situé ici:
C:\Documents and Settings\users\Bureau\F-Tran\GUiDES
et produit le fichier STree.LOG
contenant:

Citation:

---

\Documents and Settings\users\Bureau\F-Tran\GUiDES\BAT-COll.hTM
\Documents and Settings\users\Bureau\F-Tran\GUiDES\BAT-Fac.hTM
\Documents and Settings\users\Bureau\F-Tran\GUiDES\DosHLP.CMd
\Documents and Settings\users\Bureau\F-Tran\GUiDES\DosHLP.hTM
\Documents and Settings\users\Bureau\F-Tran\GUiDES\STree.LOG
\Documents and Settings\users\Bureau\F-Tran\GUiDES\LiENS\BAT-Dos.url
\Documents and Settings\users\Bureau\F-Tran\GUiDES\LiENS\Fac Dos.url
\Documents and Settings\users\Bureau\F-Tran\GUiDES\LiENS\Fac.url
\Documents and Settings\users\Bureau\F-Tran\GUiDES\LiENS\Frazee.url
\Documents and Settings\users\Bureau\F-Tran\GUiDES\LiENS\SCULTZ.url

---

Mais j'aimerais obtenir plutôt ceci:

Citation:

---

\GUiDES\
BAT-COll.hTM
BAT-Fac.hTM
DosHLP.CMd
DosHLP.hTM
STree.LOG
\GUiDES\LiENS\
BAT-Dos.url
Fac Dos.url
Fac.url
Frazee.url
SCULTZ.url

---

C'est-à-dire la structure de l'arborescence (relative) à parti de la position du script.
Pourriez-vous m'aider?
Merci

Je m'en approche:

Citation:

---

::Crée La Liste Des Fichiers De l'Arborescence Courante
@ECHO OFF

SET z=STree.LOG
TYPE NUL>"%z%"

(
::Files in the root folder
FOR /F "Tokens=* Delims=:=" %%a IN ('DIR /b "*.*"') DO (ECHO.%%~nxa)
ECHO.

::Files in sub-folders
FOR /F "Tokens=*" %%i IN ('DIR /ad /s /b') DO (
CD "%%i"
ECHO.%%~Pni
FOR /F "Tokens=* Delims=:=" %%a IN ('DIR /b "*.*"') DO (ECHO. %%~nxa)
ECHO.
)
)>>"%z%"

:: Pause

---

Il reste à couper la partie absolue du chemin des dossiers.

Si tu peux mettre ton chemin d'accès en dur dans le code tu peux utiliser cela:

Code:

---

1 2 3

SET rep=%%~Pni SET rep=!rep:\RepRacine\SubRepRacine=! ECHO.!rep!

---

Au lieu de ton simple ECHO.%%~Pni

Sans oublier d'ajouter setlocal ENABLEDELAYEDEXPANSION en début de script.