Mes meilleurs voeux à tous les lecteurs de batchclipboard.info

MoveFiles est énormément téléchargé et j'en suis heureuse.

Cependant je m'interroge sur une future évolution :
Seriez vous intéressé par une personnalisation des dossiers ?
C'est à dire, choisir leur emplacement ? usb ? autre partition ?

Si oui, laisser moi un commentaire, ou si vous avez d'autres idées

MoveFiles est disponible en version 1.1. Cette nouvelle version permet par glisser déposer de déplacer vos dossiers de votre bureau vers le répertoire Mes Documents.

Voici le code de ce batch, merci de respecter le copyright pour toutes modifications apportées en nous contactant.

@echo off
:: Line = Hauteur / Cols = Largeur
color 0f & mode con LINES=30 COLS=88
set nom=MoveFiles
set ver=1.1a
title %nom%  v.%ver%  by Laddy
::remerciements
::Laddy http://www.batchclipboard.info
::Batch_Man http://batchdhelus.open-web.fr
::Modérateurs, formateurs http://batch.xoo.it
::Copyright merci de nous contacter par mail

set Word=%userprofile%\Mes Documents\Word
set Excel=%userprofile%\Mes Documents\Excel
set PowerPoint=%userprofile%\Mes Documents\Powerpoint
set PDF=%userprofile%\Mes Documents\PDF
set Archives=%userprofile%\Mes Documents\Mes Archives
set vrprogrmes=%userprofile%\Mes Documents\Mes programmes
set Musik=%userprofile%\Mes Documents\Ma musique
set Videos=%userprofile%\Mes Documents\Mes Videos
set Images=%userprofile%\Mes Documents\Mes Images
set Internet=%userprofile%\Mes Documents\Internet

:: ------------- Création des dossiers dans Mes Documents by Batch_Man
if not exist "%Excel%" md "%Excel%"
if not exist "%Word%" md "%Word%"
if not exist "%PowerPoint%" md "%PowerPoint%"
if not exist "%PDF%" md "%PDF%"
if not exist "%Archives%" md  "%Archives%"
if not exist "%vrprogrmes%" md "%vrprogrmes%"
if not exist "%Musik%" md "%Musik%"
if not exist "%Videos%" md "%Videos%"
if not exist "%Images%" md "%Images%"
if not exist "%Internet%" md "%Internet%"

FOR /F "TOKENS=2,*" %%I IN ('REG QUERY "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" ^| FIND /I "Personal"') DO SET DOSS=%%J

:encore
if "%~pnx1"=="" goto FIN2

::mouvement pour les documents texte
set WordEXE=.txt .odt .rtf .doc .docm .dotx .dotm .docx .wpd .wps .diz .asc .ascii .hz .latex .lit .log .pages .readme .utf8 .wpd .wps .yml

for %%a in (%WordEXE%) do  if /i "%~x1"=="%%a" move "%~dpnx1" "%Word%"

::mouvement pour les feuilles de calculs
set ExcelEXE=.xla .xls .xlt .xltm. xltx .xlam .xlsb .xlsm .xlsx .prn .csv
for %%a in (%ExcelEXE%) do  if /i "%~x1"=="%%a" move "%~dpnx1" "%Excel%"

::mouvement pour les powerpoints
set PPointEXE=.pps .ppt .pptx .pptm .pot .potx .potm .pps .ppsx .ppsm
for %%a in (%PPointEXE%) do  if /i "%~x1"=="%%a" move "%~dpnx1" "%PowerPoint%"

::mouvement pour les feuilles de pdf
set PDFEXE=.pdf
for %%a in (%PDFEXE%) do  if /i "%~x1"=="%%a" move "%~dpnx1" "%PDF%"

::mouvement pour les archives
set ArchivesEXE=.zip .rar .7z .CAB .ARJ .LZH .TAR .GZ .BZ2 .ACE .UUE .JAR .Z .gz .tgz .000 .arc .cbr .ear .efw .lha .mpkg .sea .sfx .uha .yz .z01 .zix .zoo .zz
for %%a in (%ArchivesEXE%) do  if /i "%~x1"=="%%a" move "%~dpnx1" "%Archives%"

::mouvement pour les programmes
set programEXE=.exe .msi .com .bat .vbs .pif .scr .vb .ws
for %%a in (%programEXE%) do  if /i "%~x1"=="%%a" move "%~dpnx1" "%vrprogrmes%"

::mouvement pour la musique
set MusikEXE=.mp3 .ogg .wma .mid .wav .aif .aiff .aifc .cda .idf .m3u .voc .aac .au .cdr .m4a .mp1 .mp2
for %%a in (%MusikEXE%) do  if /i "%~x1"=="%%a" move "%~dpnx1" "%Musik%"

::mouvement pour la video
set VideoEXE=.mpg .avi .wmv .asf .divx .mkv .mov .mp4 .divx .3gp .dpg .evo .fli .flc .flv .ivr .m2v .m4v .mod .movie .mpe .qt .rm .vob .vro .xvid .yuv
for %%a in (%VideoEXE%) do  if /i "%~x1"=="%%a" move "%~dpnx1" "%Videos%"

::mouvement pour les images et graphismes
set ImagesEXE=.bmp .jpg .jpeg .gif .png .psd .ico .svg .cgm .dib .swf .tif .wpg .xcf .xbm .dcm .pbm .pgm  .xpm .pnm .ppm

for %%a in (%ImagesEXE%) do  if /i "%~x1"=="%%a" move "%~dpnx1" "%Images%"

::mouvement des fichiers internet
set InternetEXE=.htm .html .css .php .asp .cgi .xml .php3 .url .asp .aspx .dhtml .js .jsp .mhtml .rss .xpi
for %%a in (%InternetEXE%) do  if /i "%~x1"=="%%a" move "%~dpnx1" "%Internet%"

::movement des dossiers
::variable pour compter
IF NOT EXIST "%DOSS%\%~n1" (
     MOVE %1 "%DOSS%"
     GOTO FIN)

FOR /F "TOKENS=*" %%A IN ('DIR /B "%DOSS%" ^| FIND "%~n1"') DO (
     SET /A COMPT+=1)

REN "%~1" "%~n1_%COMPT%"
MOVE "%~dpn1_%COMPT%" "%DOSS%"


:FIN
SHIFT
GOTO ENCORE

:FIN2
exit

Pour un meilleur visuel esthétique sur votre bureau, MoveFiles est disponible en executable.

Télécharger MoveFiles (exe) : Télécharger (365 téléchargements)
Télécharger MoveFiles (bat) : Télécharger (365 téléchargements)

Si vous rencontrez des bugs : signaler un bug