CLS
@ECHO OFF

:: Vérification de la presence de KDIS.
IF NOT EXIST %CURDIR%TW.EXE ECHO Ce script doit etre placer dans le repertoire du programme d'imagerie Kodak && Echo. && Echo. && GOTO End

:: Mise en memoire de deux variables.
SET RepSAV=C:\SAV_TW_LNG
SET CURDIR=%~dp0

:: Si le fichier tampon existe encore, on le supprime.
IF EXIST %CURDIR%ListFic.txt DEL /Q %CURDIR%ListFic.txt

SET /p SAV=Voulez vous sauvegarder les fichiers de langue (O ou N)
IF /I %SAV%==N GOTO LABEL1
:: Si le repertoire de sauvegarde n'existe pas, on le cree.
IF NOT EXIST %RepSAV% MD %RepSAV%

:LABEL1
:: Creation d'un fichier tampon avec la liste de tous les fichiers correspondant aux criteres.
FOR %%i IN  (CHI,CRO,CHS,CHT,COR,CSY,DEU,ELL,ENG,ENU,ESP,FIN,GRE,HRV,HUN,ITA,JAP,JPN,KOR,LIT,LTH,MAG,NED,NLD,NOR,POL,PLK,POR,PTG,RUS,SLO,SLV,SUE,SVE,TAI,TRK,TUR) DO (
DIR /b *%%i.dll>>%CURDIR%ListFic.txt
DIR /b *%%i.chm>>%CURDIR%ListFic.txt
)
CLS

IF /I %SAV%==N GOTO LABEL2
:: Listage du fichier tampon, et deplacement des fichiers memorises.
FOR /f "tokens=*" %%i IN (%CURDIR%ListFic.txt) DO MOVE /Y %CURDIR%%%i %RepSAV%
GOTO CLEAN

:LABEL2
:: Listage du fichier tampon, et suppression des fichiers memorises.
FOR /f "tokens=*" %%i IN (%CURDIR%ListFic.txt) DO ECHO Suppression de %CURDIR%%%i && DEL /F /Q %CURDIR%%%i

:CLEAN
:: Suppression du fichier temporaire ListFic.txt
IF EXIST %CURDIR%ListFic.txt DEL /Q %CURDIR%ListFic.txt

ECHO.
ECHO Nettoyage du r‚pertoire terminer.
IF /I %SAV%==O ECHO Le r‚pertoire %RepSAV% sera … supprimer pour gagner de la place sur le disque dur.

:End
ECHO. && ECHO. && ECHO.
PAUSE