{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fprq2\fcharset0 Times New Roman;}{\f2\fswiss\fprq2\fcharset0 Arial;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red0\green0\blue255;\red0\green0\blue0;\red255\green0\blue0;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\cf1\f0\fs16 // DESCRIPTION Remplace les repertoire Images par c\cf2 eux\cf1  par d\'e9faut -Valable pour les jaquettes et les acteurs-\cf2  Saisissez n'importe quel titre et executez.\par
\cf1 // AUTHOR JUIN J\'e9r\'f4me \par
// LANGUAGE FR\cf0\f1\par
\par
\cf2\par
\cf3 UserInformationMessage\cf2 ("BONJOUR, VEUILLEZ LIRE CECI :"+ cr + ...\par
\tab\tab\tab "Ce petit programme est fait pour r\'e9tablir les repertoires des vos images MyVideoSoft"+ cr + ...\par
\tab\tab\tab "Executez le script; ensuite, allez dans les repertoires ou vous avez mis vos images, puis d\'e9placez les dans les repertoires standards de MVS."+ cr + ...\par
\tab\tab\tab "Pour les images de films, le repertoire est "".\\affiches"", et "".\\artistes"" pour les photos d'artistes.")\cf0\par
\cf1 // Repertoire Affiches\cf2\par
\cf0 HLitPremier(VIDEOTAP) \line TANTQUE PAS HEnDehors(VIDEOTAP) \line\cf4\tab If\cf1  (VIDEOTAP.repert) \cf2 <>\cf1  "\cf2 .\cf1\\\cf2 a\cf1 ffiches" \cf4 Then\cf1  \~\cf0\par
\cf2\tab\cf1\tab VIDEOTAP.r\cf2 epert\cf1  = "\cf2 .\cf1\\\cf2 a\cf1 ffiches"\cf0\par
\cf1\f2\tab\tab HMODIFIE(VIDEOTAP)\cf2\f1\par
\cf1\tab\tab //\cf5 Trace\cf1  (VIDEOTAP.repert)\cf2\par
\cf1\tab\cf4 End\cf2\par
\cf0 HLitSuivant(VIDEOTAP) \line\cf4 End\par
\cf2\par
\cf1 // Repertoire Artistes\cf4\par
\cf0 HLitPremier(A\cf1 RTISTE\cf0 ) \line TANTQUE PAS HEnDehors(A\cf1 RTISTE\cf0 ) \line\cf4\tab If\cf1  (ARTISTE.REPERT) \cf2 <>\cf1  "\cf2 .\\artistes\cf1 " \cf4 Then\cf1  \~\cf0\par
\cf2\tab\cf1\tab ARTISTE.REPERT = "\cf2 .\\artistes\cf1 "\cf0\par
\cf1\f2\tab\tab HMODIFIE(ARTISTE)\cf2\f1\par
\cf1\tab\tab //\cf5 Trace\cf1  (ARTISTE.REPERT)\cf2\par
\cf1\tab\cf4 End\cf2\par
\cf0 HLitSuivant(A\cf1 RTISTE\cf0 ) \line\cf4 End \par
\cf2\par
\cf3 UserInformationMessage\cf2  ("Le script a remplac\'e9 les repertoires, coller vos images aux bons \cf4 end\cf2 roits et relancez MyVideoSoft.")\par
\cf0\f0\fs18\par
}