Création arborescence windows

@echo off
setlocal enableextensions enabledelayedexpansion
chcp 1252 >nul

cd /d %USERPROFILE%\Desktop\TOTO || exit /b 1

set ref=0

for /f "usebackq skip=3 tokens=* delims=" %%A in ("arbre.txt") do (
 set chaine=%%A
 set pos=0
 if defined chaine (call:check chaine)
)

pause
exit


:check
set ligne=!%~1!
set mark=!ligne:~%pos%,1!

if "!mark!"=="+" (call:dossier "!ligne!" !pos!)
if "!mark!"=="\" (call:dossier "!ligne!" !pos!)

if "!mark!"=="|" (set /a pos+=4 & goto :check)
if "A!mark!A"=="A A" (set /a pos+=4 & goto :check)

goto :eof


:dossier
set "new="

if !ref! LSS %2 (set "ref=%2" & cd !name!)
if !ref! GTR %2 (
 cd ..
 set /a ref-=4
 goto :dossier
)

set "ref=%2"
set new=%1
set new=!new:^|=#!

for /f "tokens=1,* delims=-" %%A in (!new!) do (
 set name=%%~B
 echo. & echo Dossier parent : %CD%
 echo Dossier à créer : !name!
 echo. & echo #########################################################################################
 if not exist "!name!" (mkdir "!name!")
)

goto :eof

rem