Voila un petit script activable via mirc que j´ai fait parce que j´avais trop de temps libre
. C´est assez simplet , mais ca sauve bien du temps pour classer mille et un fichiers.
Vous selectionnez l´extension , le repertoire cible , le repertoire de destination et le script creeras 26 repertoires de A a Z et il classeras touts les fichiers par ordre alphabetique dans chaque repertoire respectifs. Pratique exemple pour classe de la musique ou des photo. Have fun
----
ex : /classx2dir mp3 c:\monband c:\musique
--
alias classx2dir {
if (!$findfile($2,$+(*,$chr(46),$1),0)) { echo -a Paramètre manquant ou dossier cible inexistant | halt }
if (!$exists($3) && $input(Le dossier de destination $+(",$3,") est inexistant. Désirez-vous le crée ?, y,Dossier inexistant)) { mkdir $3 }
%x =
$addtok(a.b.c.d.e.f.g.h.i.j.k.l.m.n.o.p.q.r.s.t.u.
v.w.x.y,z,46) | %z = $3
var %y 1
while (%y <= 26) {
mkdir $+($3,$chr(92),$gettok(%x,%y,46))
inc %y } | unset %x | var %y 1
while (%y <= $findfile($2,$+(*,$chr(46),$1),0)) {
.echo -a $findfile($2,$+(*,$chr(46),$1),%y,copy -o $1
$+(%z,$chr(92),$mid($1,$calc($pos($1,$chr(92),$pos
($1,$chr(92),0)) +1),1),$right($1,$calc($len(1) - $pos($1,$chr(92),$pos($1,$chr(92),0))))))
inc %y } | unset %z }
-
le seul defie dans ce script cetait de le faire en seulement quelques lignes