Cita de: Leo Gutiérrez. en 21 Julio 2011, 07:36 AM
Aquí está mi solución, recién salida del horno, lo bonito del código es la función "dirname"
Código [Seleccionar]
set shit=%%b
Shit!!



Muy bueno tu script, como era de esperar!, un saludo!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Leo Gutiérrez. en 21 Julio 2011, 07:36 AM
Aquí está mi solución, recién salida del horno, lo bonito del código es la función "dirname"
set shit=%%b
Cita de: ANTRUCK en 21 Julio 2011, 07:08 AM
este video esta mejor
@echo off
Title www.ElHacker.net
REM By PiToLoKo
REM Visita: Foro.ElHacker.Net
REM Seteamos la ruta de trabajo
Set Ruta=C:\test
REM Creamos las listas de archivos...
Echo Archivos Borrados inferiores a 500 KB:>"%temp%\Borrados.txt"
echo+ >>"%temp%\Borrados.txt"
Echo Archivos No borrados inferiores a 1024 KB (1 MB):>"%temp%\NO Borrados.txt"
echo+ >>"%temp%\NO Borrados.txt"
REM Buscamos los archivos dentro de la ruta
PUSHD "%ruta%\"
For /F "tokens=*" %%a in ('dir /B /A-D "%ruta%"') do (
Set archivo=%%a
Set Bytes=%%~za
Call :Carpeta
)
Goto :Fin
REM Comprobamos si el nombre del archivo es igual al de la ruta
:Carpeta
Dir ".." /B /A:D | find "%archivo:~-0,-4%" >NUL
If %ERRORLEVEL% EQU 0 (
Call :Same__Name_Size
Goto:eof
) ELSE (
Call :Not_same_Name_Size
Goto:eof
)
POPD
goto :eof
:Same__Name_Size
REM Si el archivo es menor a 500 KB, lo eliminamos de la ruta.
If %Bytes% LSS 512000 (
Del /Q /F "%ruta%\%archivo%"
Echo %archivo% -= %Bytes% bytes =- >>"%temp%\BORRADOS.txt"
Goto:eof
) ELSE (
Call :Mayor
goto:eof
)
REM Si el archivo es mayor a 500 KB pero menor a 1024 KB, NO lo eliminamos y lo añadimos a la lista.
:Mayor
If %Bytes% LSS 1048576 (
Echo %archivo% -= %Bytes% bytes =- >>"%temp%\NO BORRADOS.txt"
Goto:eof
) ELSE (
goto:eof
)
:Not_same_Name_Size
REM Si el archivo es menor a 1024 KB, lo añadimos a la lista.
If %Bytes% LSS 1048576 (
Echo %archivo% -= %Bytes% bytes =- >>"%temp%\NO BORRADOS.txt"
Goto:eof
) ELSE (
goto:eof
)
REM Mostramos el resultado de la operación y borramos los archivos temporales.
:Fin
Echo Operaci¢n finalizada.
Echo.
echo.Pulse una tecla para mostrar el resultado...
pause >nul
cls
Type "%temp%\Borrados.txt" | MORE
echo+ & echo+ & echo+ & echo+
Type "%temp%\NO Borrados.txt" | MORE
Del /Q "%temp%\Borrados.txt";"%temp%\NO Borrados.txt"
echo+ & echo+ & echo+ & echo.Pulse una tecla para salir...
Pause >nul
Exit
Cita de: ShotgunLogic en 20 Julio 2011, 13:42 PMIDEM
Todavía no se a que te refieres con viñeta xDDD
Cita de: BlueHawck en 20 Julio 2011, 01:13 AM
exactamente scr tienes razon.
Cita de: BlueHawck en 20 Julio 2011, 01:13 AM
pero como hacen para que ingresen a mi pc desde el router??? lo pregunto para poder prevenir eso.
MSTSC /v:TERMINAL o IP REMOTA