Calandrier de dossiers

Bonjour,

Je me joins à vous deux, voilà ma proposition :

@echo off
chcp 65001 >nul
setlocal enableextensions enabledelayedexpansion

set "destination=%USERPROFILE%\Desktop"

: --------------------------------------------------------------------------------------
rem on sélectionne l'année dont on veut créer l'arborescence
: --------------------------------------------------------------------------------------

:debut

cd /d %destination% || exit /b 1
echo. & set "annee="
set /p annee="Quelle année voulez-vous créer ? "
if not defined annee (goto :debut)
if not exist "%annee%" (mkdir "%annee%")
cd %annee%

: --------------------------------------------------------------------------------------
rem on détermine si l'année est bissextile
: --------------------------------------------------------------------------------------

set "anneebis=false"
set /a result=%annee% %% 4

if !result! EQU 0 (
	set /a result=%annee% %% 100
	if !result! EQU 0 (
		set /a result=%annee% %% 400
		if !result! NEQ 0 (set "anneebis=false") else (set "anneebis=true")
	) else (set "anneebis=true")
)

if "%anneebis%"=="true" (echo. & echo ^>^>^> L'année %annee% est une année bissextile)

: --------------------------------------------------------------------------------------
rem on détermine le nom du premier jour de l'année
: --------------------------------------------------------------------------------------

for /f "delims=" %%A in ('powershell "(get-date('01.01.%annee%')).ToString('ddd dd')"') do (
	set "first=%%A"
	set "first=!first:~0,3!"
)

: --------------------------------------------------------------------------------------
rem on détermine la position (de 1 à 7) du jour dans la semaine
: --------------------------------------------------------------------------------------

set /a index=0

for %%A in (lun mar mer jeu ven sam dim) do (
	set /a index+=1
	if !first!==%%A (set /a numposjour=!index!)
)

if !numposjour! EQU 1 (set /a numposjour=7) else (set /a numposjour-=1)

: --------------------------------------------------------------------------------------
rem on crée les 12 dossiers correspondants aux mois
: --------------------------------------------------------------------------------------

echo. & set /a index=0

for %%A in (janvier fevrier mars avril mai juin juillet aout septembre octobre novembre decembre) do (
	set /a index+=1
	set "nummois=0!index!"
	set "nummois=!nummois:~-2!"
	if not exist "!nummois!.%%A" (mkdir "!nummois!.%%A")
	echo.!nummois!.%%A

	pushd "!nummois!.%%A"
	echo !nummois! | findstr "01 03 05 07 08 10 12" >nul && call :creationJours 31
	echo !nummois! | findstr "04 06 09 11" >nul && call :creationJours 30
	echo !nummois! | findstr "02" >nul && if "!anneebis!"=="true" (call :creationJours 29) else (call :creationJours 28)
	popd
)

echo. & pause
exit

: --------------------------------------------------------------------------------------
rem on crée tous les jours de travail du mois
: --------------------------------------------------------------------------------------

:creationJours

for /L %%B in (1,1,%1) do (
	set /a numposjour+=1
	if !numposjour! GTR 7 (set /a numposjour=1)
	
	rem si le mois commence, on décroche les wagons
	if %%B EQU 1 (set "dossier=")

	set "jour=0%%B"
	set "jour=!jour:~-2!"
	
	if !numposjour! GEQ 1 (
		if !numposjour! LEQ 4 (
			if not exist "!jour!" (mkdir "!jour!")
			call :creationSousDossiers "!jour!"
		)
	)

	if !numposjour! GTR 4 (if !numposjour! LEQ 7 (set "dossier=!dossier!-!jour!"))

	rem si le mois est fini, on décroche les wagons
	if %%B EQU %1 (call :dossierWeekEnd) else (if !numposjour! EQU 7 (call :dossierWeekEnd))
)
 	 
goto :eof

: --------------------------------------------------------------------------------------
rem on crée un dossier qui regroupe le vendredi-samedi-dimanche
: --------------------------------------------------------------------------------------

:dossierWeekEnd

if not defined dossier (set "dossier=!jour!") else (set "dossier=!dossier:~1!")

if not exist "!dossier!*" (
	if !numposjour! NEQ 7 (set "dossier=!dossier!-")
	if not exist "!dossier!" (mkdir "!dossier!")
	call :creationSousDossiers "!dossier!"
	set "dossier="
)

goto :eof

: --------------------------------------------------------------------------------------
rem on crée les sous-dossiers correspondants aux horaires de travail
: --------------------------------------------------------------------------------------

:creationSousDossiers

set "restant=%~1"
set /a elements=0

:boucle
for /f "tokens=1,* delims=-" %%A in ("!restant!") do set "numero=%%A" & set "restant=%%B"
if defined restant (set /a elements+=1 & goto :boucle)

set "restant=%~1"

:traitement
for /f "tokens=1,* delims=-" %%A in ("!restant!") do set "numero=%%A" & set "restant=%%B"
set /a derive=!numposjour!-!elements!
if !derive! LSS 1 (set /a derive=!derive!+7)

if not "%~1"=="!numero!" (if not "%~1"=="!numero!-" (set "parent=%~1\!numero!") else (set "parent=%~1")) else (set "parent=%~1")

if !derive! EQU 7 (
	mkdir "!parent!\06-18"
	mkdir "!parent!\18-06"
) else (
	mkdir "!parent!\06-14"
	mkdir "!parent!\14-22"
	mkdir "!parent!\22-06"
)

if defined restant (set /a elements-=1 & goto :traitement)

goto :eof

-

Ce script devrait être nettement plus rapide que celui de brucine car il y a moins d'appels à Powershell, à vrai dire il y a un seul appel.

Par contre mon code est beaucoup moins joli que celui de brucine.

Le cahier des charges est complexe à gérer, mais pas impossible.

Bonjour,

Je ne suis pas sûr de comprendre ta demande, tu parles bien de dossiers?

Tout est toujours possible, mais ça va être infernal à gérer, 12 dossiers avec chacun une vingtaine de sous-dossiers en contenant eux-mêmes 3 ou 4, et il y aura quoi, dans ces dossiers?

La démarche que tu évoques passe plus volontiers par un planning Excel/Libre Office

Je te remercie …

j’ai déjà mon batch fonctionnel pour l’année. Mais sans gestion des dates encore.

je regarde aussi les fonctions de powershell, il semble bien plus adapté pour la gestion des dates.

mais je découvre aussi donc j’essaye de tester ça lundi soir, we charge oblige. 

bon we à toi 

Wouaw joli script. 

encore merci

je n’aurais pas accès au pc avant lundi soir, je testerais ça direct et je reviendrais vers toi ????

bon week-end  

Je viens de tester, c’est long à créer mais c’est pas un problème. Vraiment très bien fait, merci pour ton travail! 
 

y aurait-il possibilité de faire des petites améliorations pour qu’il soit parfaitement adapté à mon besoin?

1. Nommer les 12 mois de l’année en 01.janvier

2. Et la ou ca se complique c’est que les sous dossiers 06-18 et 18-06, doivent être créé uniquement les dimanches. Cad que dans le dossier ex. 03-04-05 il faut un sous dossier 03 avec sous dossier 06-14 + 14-22 + 22-06 idem pour 04, idem dans 05 mais juste avec le 06-18 + 18-06.

pour ouvrir une fenêtre demandant la date de l’année pour la création je trouverais bien, idem pour la création du script dans le dossier ou il est lancé. 
 

d’avance merci …

bat

Génial ! Merci bcp barnabe0057. 
 

oui j’avoue que la demande est vraiment pas simple…

merci à tous les deux pour votre travail.