`--> cat /home/thek586/srv-music/List.bat  
@echo off  
rem  
rem Script qui fait une belle sortie HTML d'un repertoire  
rem doit �tre lanc� par cmd /C /V:ON  
rem ou L'expansion retard� doit �tre activ�  
rem  
rem extrait de cmd /? :  
rem  
rem L'expansion retard�e de variables d'environnement n'est PAS activ�e par  
rem d�faut. Vous pouvez l'activer ou la d�sactiver pour une utilisation  
rem particuli�re de CMD.EXE avec l'option /F:ON ou /F:OFF. Vous pouvez l'activer  
rem ou la d�sactiver pour toute utilisation de CMD.EXE sur un ordinateur ou pour  
rem un utilisateur en fixant avec REGEDT32.EXE l'une ou les deux valeurs  
rem REG_DWORD suivantes du Registre :  
rem  
rem     HKEY_LOCAL_MACHINE\Software\Microsoft\Command Processor\DelayedExpansion  
rem  
rem           et/ou  
rem    
rem   HKEY_CURRENT_USER\Software\Microsoft\Command Processor\DelayedExpansion  
rem  
rem � la valeur 0x1 ou 0x0. Les param�tres sp�cifiques � l'utilisateur sont  
rem prioritaires sur les param�tres de l'ordinateur. Les options de la ligne  
rem de commande ont priorit� sur les param�tres du Registre.  
 
rem %1 sortie du Fichier  
rem %2 profondeur  
if a%1a EQU aa (  
    for /F "tokens=2,3,4 delims=/ " %%j in ('date /t') do set ddate=%%l/%%k/%%j  
    for /F "tokens=1,2 delims=: " %%j in ('time /t') do set hheure=%%j:%%k  
    echo %ddate% %hheure% MSG E 1 Il manque le repertoire >&2  
    set erreur=  
    goto :EOF  
)  
if a%2a EQU aa (  
    for /F "tokens=2,3,4 delims=/ " %%j in ('date /t') do set ddate=%%l/%%k/%%j  
    for /F "tokens=1,2 delims=: " %%j in ('time /t') do set hheure=%%j:%%k  
    echo %ddate% %hheure% MSG I 1 utilisation d'une profondeur infinie >&2  
    set profondeur=0  
) else (  
    set profondeur=%2  
)  
rem  
rem On Liste chaque repertoire  
rem  
for /F  "eol=; tokens=1,2 delims=\ " %%j in ("<table>" ) do echo %%j  
FOR /R %1 %%i in (*) do (  
   if %profondeur% EQU 0 (  
      for /F  "eol=; tokens=1,2 delims=\ " %%j in ("<tr><td>\</td></tr>" ) do echo %%j%%i%%k  
   ) else (  
      rem  
      rem on va utiliser une profondeur  
      rem  
      set ligne=%%i  
      set troncature=  
      for /F  %%j in ("<tr><td>" ) do echo %%j  
      for /L %%j in (0,1,%profondeur%) do (  
          for /F "eol=; tokens=1,* delims=\ "  %%j in ("!ligne!" ) do (  
             set troncature=!troncature!%%j\  
             set ligne=%%k  
          )  
      )  
      for /F  "eol=; tokens=1,2 delims=\ " %%j in ("<tr><td>\</td></tr>" ) do echo %%j!troncature!%%k  
   )  
)  
for /F  "eol=; tokens=1,2 delims=\ " %%j in ("</table>" ) do echo %%j