Me funciona perfecto, haces que todo parezca tán fácil en VBS... XD
graciasss
este batch elimina los accesos directos rotos del menú inicio, y todas las carpetas vacias (0 bytes) ^^
graciasss
este batch elimina los accesos directos rotos del menú inicio, y todas las carpetas vacias (0 bytes) ^^
Código (dos) [Seleccionar]
@echo off
setlocal enabledelayedexpansion
:Accesos directos rotos
For /F "Tokens=*" %%a in ('dir /B /S "%appdata%\Microsoft\Windows\Start Menu\Programs\*.lnk"') do (
Set archivo="%%a"
call :comprobar)
For /F "Tokens=*" %%a in ('dir /B /S "%ProgramData%\Microsoft\Windows\Start Menu\Programs\*.lnk"') do (
Set archivo="%%a"
call :comprobar)
:Carpetas vacias
For /F "Tokens=*" %%a in ('dir /B /S /A:D "%appdata%\Microsoft\Windows\Start Menu\Programs\"') do (
If %%~za EQU 0 rd /Q /S "%%a")
For /F "Tokens=*" %%a in ('dir /B /S /A:D "%ProgramData%\Microsoft\Windows\Start Menu\Programs\"') do (
If %%~za EQU 0 rd /Q /S "%%a")
exit
:Comprobar
Comprobar.vbs !archivo!
If %errorlevel% EQU 0 (
goto:eof
) ELSE (
Del /Q /F !archivo!
goto:eof
)