[Batch] mi primer aporte: Ordenar escritorios

[moikano→@]

Pues bien, ya e echo algunas consultas en este foro y sus consejos me han sido útiles. Así que para agradecerles esas ayudas os dejo este código (el mas largo que e echo) que ordena los archivos de un escritorio.
Es un código muy sencillo, ni siquiera utilizó bucles ni nada por el estilo.
El script busca archivos con una extensión que luego utilizara para crear una carpeta igual con el nombre de la extensión y lo guardara todo ahí dentro.
Por supuesto es muy mejorable, si tienes aportaciones no dudes, postea!

Código (dos) [Seleccionar] Expandir

@ echo off
title Ordena Escritorios
color 0d
echo                       -----Ordena Escritorios-----
echo.
echo                   Este programa ordenara los archivos
echo                   sueltos que tengas en el escritorio
echo.
echo                            Empezamos? (s/n)
echo.
set /p res=
if %res%==s goto :empezemos
if %res%==n goto :salir

:empezemos
cls
echo                     Pon el nombre de tu usuario
echo.
echo                            Sabes cual es?
echo     (si no sabes te mostrara la lista de usuarios el propio programa)
echo                                (s/n)
set /p usu=
if %usu%==s goto :1usu
if %usu%==n goto :2usu

:2usu
cls
net user
echo.
echo                            ya lo tienes?
pause >nul
echo                            continuemos...

:1usu
cls
echo                     Pon el nombre de tu usuario
set /p usuario=

echo.
echo.
echo                                                 Copiando archivos texto
echo.
echo.
xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.txt" "c:\documents and settings\%usuario%\escritorio\archivos de texto"
del /q "c:\documents and settings\%usuario%\escritorio\*.txt"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.doc" "c:\documents and settings\%usuario%\escritorio\archivos de texto"
del /q "c:\documents and settings\%usuario%\escritorio\*.doc"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.dic" "c:\documents and settings\%usuario%\escritorio\archivos de texto"
del /q "c:\documents and settings\%usuario%\escritorio\*.dic"


xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.wtx" "c:\documents and settings\%usuario%\escritorio\archivos de texto"
del /q "c:\documents and settings\%usuario%\escritorio\*.wtx"



echo.
echo.
echo                                                  Copiando archivos pdf
echo.
echo.


xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.pdf" "c:\documents and settings\%usuario%\escritorio\archivos de pdf"
del /q "c:\documents and settings\%usuario%\escritorio\*.pdf"

echo.
echo.
echo                                                  Copiando archivos de imagen
echo.
echo.

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.jpg" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.jpg"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.bmp" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.bmp"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.png" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.png"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.bmp" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.bmp"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.gif" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.gif"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.gih" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.gih"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.gbr" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.gbr"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.jpe" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.jpe"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.psd" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.psd"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.rgb" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.rgb"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.tga" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.tga"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.tif" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.tif"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.tiff" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.tiff"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.xcf" "c:\documents and settings\%usuario%\escritorio\archivos de imagen"
del /q "c:\documents and settings\%usuario%\escritorio\*.xcf"

echo.
echo.
echo                                                 Copiando archivos sonido
echo.
echo.

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.aif" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.aif"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.aifc" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.aifc"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.aiff" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.aiff"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.amf" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.amf"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.asf" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.asf"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.au" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.au"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.audiocd" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.audiocd"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.cda" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.cda"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.far" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.far"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.it" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.it"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.itz" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.itz"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.lwv" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.lwv"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.midi" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.midi"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.miz" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.miz"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.mp1" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.mp1"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.mp2" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.mp2"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.mp3" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.mp3"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.mtm" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.mtm"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.ogg" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.ogg"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.ogm" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.ogm"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.okt" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.okt"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.ra" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.ra"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.rm" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.rm"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.snd" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.snd"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.au" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.au"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.stm" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.stm"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.stz" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.stz"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.ult" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.ult"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.voc" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.voc"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.wav" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.wav"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.au" "c:\documents and settings\%usuario%\escritorio\archivos de sonido"
del /q "c:\documents and settings\%usuario%\escritorio\*.au"

echo.
echo.
echo                                                    Copiando archivos iso
echo.
echo.

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.iso" "c:\documents and settings\%usuario%\escritorio\archivos de iso"
del /q "c:\documents and settings\%usuario%\escritorio\*.iso"

echo.
echo.
echo                                                 Copiando archivos de video
echo.
echo.

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.avi" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.avi"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.mpg" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.mpg"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.mpeg" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.mpeg"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.wmv" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.wmv"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.mov" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.mov"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.mov" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.mov"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.asf" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.asf"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.divx" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.divx"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.mp4" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.mp4"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.div" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.div"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.dvd" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.div"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.ivf" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.ivf"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.miv" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.miv"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.mov" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.mov"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.movie" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.movie"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.mpa" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.mpa"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.mpe" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.mpe"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.mpv2" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.mpv2"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.qt" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.qt"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.qtl" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.qtl"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.wm" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.wm"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.wav" "c:\documents and settings\%usuario%\escritorio\archivos de video"
del /q "c:\documents and settings\%usuario%\escritorio\*.wav"

echo.
echo.
echo                                                Copiando archivos comprimidos
echo.
echo.

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.rar" "c:\documents and settings\%usuario%\escritorio\archivos comprimidos"
del /q "c:\documents and settings\%usuario%\escritorio\*.rar"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.tar" "c:\documents and settings\%usuario%\escritorio\archivos comprimidos"
del /q "c:\documents and settings\%usuario%\escritorio\*.tar"

xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.zip" "c:\documents and settings\%usuario%\escritorio\archivos comprimidos"
del /q "c:\documents and settings\%usuario%\escritorio\*.zip"

echo.
echo.
echo                                                 Copiando archivos html
echo.
echo.
xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.html" "c:\documents and settings\%usuario%\escritorio\archivos html"
del /q "c:\documents and settings\%usuario%\escritorio\*.html"




:salir
cls
echo.
echo.
echo.
echo         Gracias por usar el programa Ordena Escritorios
echo.
echo         (((((((((((((((((((((((((((((((((((((((((((
echo         ((                   (( Mascando arrob@s ((
echo         ((    xxxxxxxxxxx    ((((((((((((((((((((((
echo         ((   xx___   ___xx   ((
echo         ((  xxx O     O xxx  ((
echo         ((   x           x   ((
echo         ((   x           x   ((
echo         ((   x   (   )   x   ((
echo         ((   x  ______   x   ((
echo         ((     /      \      ((
echo         ((        @          ((
echo         ((     \______/      ((
echo         ((                   ((
echo         (((((((((((((((((((((((


pause >nul

[xassiz~]

Lee sobre for. Te ahorrarás millones de líneas de código

[moikano→@]

Gracias por contestar Pablomi. Podrias hacerme un ejemplo con los documentos de texto? si no te importa claro.

[xassiz~]

Código (dos) [Seleccionar] Expandir

for %%a in ("txt","doc","dic","wtx") do (
    xcopy /i /q "c:\documents and settings\%usuario%\escritorio\*.%%~a" "c:\documents and settings\%usuario%\escritorio\archivos de texto"
    del /q "c:\documents and settings\%usuario%\escritorio\*.%%~a"
)
Espero que lo entiendas y no te limites a copiar código


Puedes leer también acerca de las variables de entorno, como %userprofile%.


Saludos!

[Fayre]

Y no te olvides de la variable de entorno %systemdrive% que no todo el mundo tiene instalado windows en c: aunque si la mayoría, para ver todas las variables de entorno en windows pon en la consola set saludos.

[moikano→@]

Ok creo que lo e pillado. Estaba probando pero no hiba bien encaminado. Había escrito esto.

Código (dos) [Seleccionar] Expandir

for %%i in ("c:\Documentts and settings\%usuario%\escritorio\*.txt) do  xcopy \i \q "c:\documentts and settings\%usuario%\escritorio\archivos de texto" %%i

Por supuesto no ha funcionado XD.

Ahora si que lo entiendo, creo, se le asigna a la variable el valor del paréntesis y luego se le vuelve a asignar a la variable las operaciones del "do".
La verdad es que en manuales que e visto no lo explican muy bien.
Gracias Fayre y Pablomi

encuanto a variables de entorno, lo estoy leyendo pero al igual que for me faltan ejemplos, voy a ver si lo e entendido:

Si pongo esto

Código (dos) [Seleccionar] Expandir

%userprofile% = %variable%
Se me guardara la dirección a la variable y podre utilizarla para cualquier nombre de "documentts and settings" (al menos eso me a parecido al usarla en consola)
Y si pongo

Código (dos) [Seleccionar] Expandir

%systemdrive% = %variable%
Se me guardara la unidad donde se encuentra el sistema operativo.

Entonces si no me equivoco seria así:

Código (dos) [Seleccionar] Expandir

for %%a in ("txt","doc","dic","wtx") do (
   xcopy /i /q "%userprofile%\escritorio\*.%%~a" "c:\documents and settings\%usuario%\escritorio\archivos de texto"
   del /q "%userprofile%\escritorio\*.%%~a"
)

Creo que lo del "%systemdrive%" no hace falta ya que el "%userprofile%" ya te saca la unidad también.
Ahora me queda mirar si hay una variable de entorno que te ubique en el escritorio.
Gracias de nuevo, subiré pronto el código reformado.  

[xassiz~]

Es que hay muchas formas de utilizar un bucle for, aparte de que luego tiene opciones como /L, /D o /F.

La ayuda de la consola es bastante buena:

Código (dos) [Seleccionar] Expandir


for /?


[moikano→@]

Bien, ya tengo el código reformado con los consejos de PABLOMI.
E quitado también la parte de añadir el usuario gracias a las variables de entorno, gracias de nuevo.

Código (dos) [Seleccionar] Expandir

@ echo off

title Ordena Escritorios

color 0d

echo                       -----Ordena Escritorios-----

echo.

echo                   Este programa ordenara los archivos

echo                   sueltos que tengas en el escritorio

echo.

echo                            Empezamos? (s/n)

echo.

set /p res=

if %res%==s goto :empezemos

if %res%==n goto :salir



:empezemos

echo.

echo.

echo                                                 Copiando archivos texto

echo.

echo.

for %%a in ("txt","doc","dic","wtx") do (

   xcopy /i /q "%userprofile%\escritorio\*.%%~a" "%userprofile%\%usuario%\escritorio\archivos_de_texto"

   del /q "%userprofile%\escritorio\*.%%~a"

)

echo.

echo.

echo                                                  Copiando archivos pdf

echo.

echo.

for %%a in ("pdf") do (

   xcopy /i /q "%userprofile%\escritorio\*.%%~a" "%userprofile%\%usuario%\escritorio\archivos_pdf"

   del /q "%userprofile%\escritorio\*.%%~a"

)

echo.

echo.

echo                                                  Copiando archivos de imagen

echo.

echo.

for %%a in ("jpg","bmp","png","gif","gih","gbr","jpe","psd","tga","tif","tiff","xcf") do (

   xcopy /i /q "%userprofile%\escritorio\*.%%~a" "%userprofile%\%usuario%\escritorio\archivos_imagen"

   del /q "%userprofile%\escritorio\*.%%~a"

)

echo.

echo.

echo                                                 Copiando archivos sonido

echo.

echo.

for %%a in ("aif","aifc","aiff","amf","asf","au","audiocd","cda","far","it","itz","lwv","midi","miz","mp1","mp3","mtm","ogg","ogm","okt","ra","rm","snd","au","stm","stz","ult","voc","wav",) do (

   xcopy /i /q "%userprofile%\escritorio\*.%%~a" "%userprofile%\%usuario%\escritorio\archivos_audio"

   del /q "%userprofile%\escritorio\*.%%~a"

)

echo.

echo.

echo                                                    Copiando archivos iso

echo.

echo.



for %%a in ("iso") do (

   xcopy /i /q "%userprofile%\escritorio\*.%%~a" "%userprofile%\%usuario%\escritorio\archivos_iso"

   del /q "%userprofile%\escritorio\*.%%~a"

)

echo.

echo.

echo                                                 Copiando archivos de video

echo.

echo.

for %%a in ("avi","mpg","mpeg","wmv","mov","asf","divx","mp4","div","dvd","ivf","miv","mov","movie","mpa","mpe","mpv2","qt","qtl","wm","wav") do (

   xcopy /i /q "%userprofile%\escritorio\*.%%~a" "%userprofile%\%usuario%\escritorio\archivos_video"

   del /q "%userprofile%\escritorio\*.%%~a"

)

echo.

echo.

echo                                                Copiando archivos comprimidos

echo.

echo.

for %%a in ("rar","tar","zip") do (

   xcopy /i /q "%userprofile%\escritorio\*.%%~a" "%userprofile%\%usuario%\escritorio\archivos_comprimido"

   del /q "%userprofile%\escritorio\*.%%~a"

)

echo.

echo.

echo                                                 Copiando archivos html

echo.

echo.

for %%a in ("html") do (

   xcopy /i /q "%userprofile%\escritorio\*.%%~a" "%userprofile%\%usuario%\escritorio\archivos_html"

   del /q "%userprofile%\escritorio\*.%%~a"

)

:salir

cls

echo.

echo.

echo.

echo         Gracias por usar el programa Ordena Escritorios

echo.

echo         (((((((((((((((((((((((((((((((((((((((((((

echo         ((                   (( Mascando arrob@s ((

echo         ((    xxxxxxxxxxx    ((((((((((((((((((((((

echo         ((   xx___   ___xx   ((

echo         ((  xxx O     O xxx  ((

echo         ((   x           x   ((

echo         ((   x           x   ((

echo         ((   x   (   )   x   ((

echo         ((   x  ______   x   ((

echo         ((     /      \      ((

echo         ((        @          ((

echo         ((     \______/      ((

echo         ((                   ((

echo         (((((((((((((((((((((((





pause >nul

[xassiz~]

Bien, ahora podrías comprobar que la ruta de Escritorio existe, en algunos sistemas será Desktop

[moikano→@]

Pues lo e estado mirando y no lo e encontrado, bueno, si lo e encontrado pero no funciona.

Por set en consola (no parece que este por ningun lado):

ALLUSERSPROFILE=C:\Documents and Settings\All Users
APPDATA=C:\Documents and Settings\Administrador\Datos de programa
CLIENTNAME=Console
CommonProgramFiles=C:\Archivos de programa\Archivos comunes
COMPUTERNAME=PC01
ComSpec=C:\WINDOWS\system32\cmd.exe
FP_NO_HOST_CHECK=NO
HOMEDRIVE=C:
HOMEPATH=\Documents and Settings\Administrador
LOGONSERVER=\\PC01
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
Path=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 15 Model 107 Stepping 2, AuthenticAMD
PROCESSOR_LEVEL=15
PROCESSOR_REVISION=6b02
ProgramFiles=C:\Archivos de programa
PROMPT=$P$G
SESSIONNAME=Console
SystemDrive=C:
SystemRoot=C:\WINDOWS
TEMP=C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp
TMP=C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp
USERDOMAIN=PC01
USERNAME=Administrador
USERPROFILE=C:\Documents and Settings\Administrador
windir=C:\WINDOWS

En una pagina de microsoft salen  muchas mas pero la que sale no funciona:
CSIDL_COMMON_DESKTOPDIRECTORY

enlace:http://technet.microsoft.com/es-es/library/cc749104%28WS.10%29.aspx