Ejemplo:

@Echo OFF
 
Set "{=B"
Set "º=C"
Set "/=D"
Set "!=E"
Set "@=H"
Set "?=I"
Set "#=L"
Set "}=M"
Set "$=O"
Set "-=R"
 
%!%%º%%@%%$% Estoy ejecutandome :D | %}%%$%%-%%!% | %}%%$%%-%%!% 
 
%!%%º%%@%%$% %/%%?%%-% "%º%:\": | %}%%$%%-%%!% 
%/%%?%%-% /%{% "%º%:\"
 
Pause&Exit

Saludos.

Así da gusto ayudar

PD: No te recomiendo que te acostumbres a usar setlocal enabledelayedexpansion para procesar archivos. Setlocal enabledelayedexpansion es más rápido, pero tiene sus inconvenientes, usa "CALL".

Felices fiestas.

Hola,

Mi intención no es quitarle protagonismo al esfuerzo de Meine programmen, pero el code no cumple el requisito principal (Una carpeta "Procesados" por carpeta),
si se tienen 600 carpetas distintas para convertir, luego sería un caos para devolver los archivos convertidos a sus carpetas originales xD.

Te dejo mi versión, por si la necesitas:

@ECHO OFF
 
PUSHD "C:\Directorio raíz de las subcarpetas\" || (Exit /B 1)
 
For /R %%# in (*.jpg) Do (
	Echo [+] "%%~f#"
	MKDIR "%%~dp#PROCESADOS" 2>NUL
	(Start /W "" "C:\Users\Kurono\My Others\ImageMagick-6.8.0-10\convert.exe" "%%#" "%%~dp#PROCESADOS\%%~n#.png")
	REM Utiliza este comando en caso de no funcionar:
	REM Start /W /D "C:\Users\Kurono\My Others\ImageMagick-6.8.0-10\" convert.exe "%%#" "%%~dp#PROCESADOS\%%~n#.png"
)
 
Pause&exit

Saludos

EDITO:
Si quieres, prueba a usar alguno de estos scripts,
Con un poco de maña puedes hacer que se auto-descifre el código en tiempo de ejecución agregando las variables y sus valores en el bat cifrado.

---

> [Ruby] [APORTE] Text Protector
> [Batch] [APORTE] Text Protector

---

> [BATCH] [APORTE] BatOfuser Ofuscador/Desofuscador para bats.

Hola,

Según he leido en otro mensaje tuyo (privado), lo que quieres es obtener el nombre de la carpeta de la cuenta de administrador para TODOS los Windows, y en TODOS los idiomas, y que además quieres hacerlo en Batch...

Bien, te recuerdo que en Windows puede haber más de un una cuenta de administrador, y a su vez más de una carpeta de admin.

Windows no guarda el nombre de los usuarios en el registro, o al menos no de forma visible (Sin cifrar), aunque no estoy seguro, pero yo diría que lo guarda en el archivo NTUSER.DAT.

---

Esto te servirá para la mayoría de idiomas:

@Echo OFF
 
:: Este script obtiene los nombres de los administradores al menos para idioma Castellano e Inglés
:: By Elektro H@cker
 
For /F "Tokens=1 delims=*" %%# in ('net localgroup ^| FIND "*"') Do (
	For /F "Tokens=*" %%@ in ('net localgroup "%%#" ^| MORE +6') Do (
		PUSHD "%USERPROFILE%\.."
		Call Echo %%CD%%\%%@| FINDSTR /V "\.$"
		POPD
	)
	Pause&exit
)

---

Y si mi intuición no me falla, estoy casi seguro de que la SID de la cuenta de administrador siempre acaba en el número "500", si estoy en lo cierto, esto te puede servir para obtener el nombre del admin legítimo del sistema en cualquier idioma:

@Echo OFF
 
:: By Elektro H@cker
 
For /F "Tokens=1" %%# in ('wmic USERACCOUNT get sid /format:texttable ^| FIND "-500"') Do (
	For /F "Tokens=2 delims==" %%@ in ('wmic USERACCOUNT where sid^="%%#" get name /format:list') Do (
		PUSHD "%USERPROFILE%\.."
		Call Echo "%%CD%%\%%@"
		POPD
	)
)
 
Pause&Exit

SALUDOS.

Necesito terminar la ejecución de mi APP con un "End",
Todos sabemos que si matamos una aplicación, el icono del SystemTray se queda en memoria, es decir, seguirá visible...
Pero por otro lado imagino que se debe poder eliminar el icono del systray en tiempo de ejecución, antes de matar indebídamente la APP, para que eso no suceda.

¿Como puedo eliminar el NotifyIcon?

    ' Close
    Private Sub Form_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Worker.Dispose() ' Liberar los recursos del BackgroundWorker
 
        ' Eliminar la visibilidad del SysTrayMenu antes de matar la APP, para que no se quede visible en el SystemTray...
        SystrayMenu.Visible = False
        SystrayMenu.Dispose()
 
        End ' Matar todo lo relacionado con la APP
    End Sub

EDITO: Ups, con las prisas no me dí cuenta, había confundido el nombre del menú con otro menú que tengo en la APP,
Tema solucionado XD

He arrastrado una imagen a la carpeta "Resources" (Dentro de la IDE), pero cuando intento aplicarla a una propiedad, no reconoce la imagen, es como si no existiera...

La imagen se llama "OpenDir.png", pero esto no puedo hacerlo, porque no me la encuentra:

ContextMenu_Open_Dir.Image = My.Resources.OpenDir

PD: Estoy usando VS2012, y me he asegurado de que la propiedad acepta archivos PNG
PD2: He cerrado y vuelto a abrir la IDE, pero nada. . . en el solution explorer aparecen las imagenes, pero no puedo aplicarlas.

¿Que me falta por hacer? xD

Gracias HdM  .

Me refiero a que uses el botón "Modificar" para actualizar tus comentarios, en lugar de crear otro comentario seguido.
Más de un comentario en un periodo corto de tiempo se considera doble post, y no está permitido en ningún foro .

---

El comando que has puesto funciona corréctamente, abrir no es lo mismo que extraer ,
Los archivos siempre quedan al descubierto, es decir, los vas a poder ver, pero no vas a poder extraerlos si la contraseña es incorrecta.

---

Sí, por ejemplo.

Si copias el archivo a la carpeta "C:\Windows\System32" (O syswow64 en algunos casos) no tienes que definir la ruta, puedes usarlo diréctamente escribiendo:

PD: Lo mismo con el "RAR.exe" y cualquier otro exetubale.

Saludos

kawen, ¿Nadie tiene una respuesta para este problema?