Dir /B /S > Log.txt

Dir /?

/A          Muestra los archivos con los atributos especificados.
atributos    D  Directorios             
             H  Archivos ocultos        
             S  Archivos de sistema
             -  Prefijo de exclusión

@echo off
Title=Foro.Elhacker.Net
 
REM Simple LOG de directorios.
REM By PiToLoKo
REM Foro.Elhacker.Net
 
echo+				   >> "%temp%\Log.txt"
echo ============================= >> "%temp%\Log.txt"
Echo Fecha del escaneo: %Date%     >> "%temp%\Log.txt"
echo ============================= >> "%temp%\Log.txt"
echo+				   >> "%temp%\Log.txt"
 
Echo+ & echo+ El directorio actual es:
Echo  %cd%
Echo+ & echo+ Pulse una tecla para empezar el escaneo...
pause >nul 2>&1
 
For /F "tokens=*" %%a in ('Dir /B /S /A:D') do (
Set folder=%%a
Call :Scan
)
 
Title=foro.elhacker.net
echo+
echo  ===========================
Echo   El escaneo ha finalizado.
echo  ===========================
Notepad "%temp%\Log.txt"
Pause >nul
exit
 
:Scan
Title=Escaneo en progreso..."
Echo Escaneando "%folder%"
 
Echo -=[ %folder% ]=- >> "%temp%\Log.txt"
echo+  >> "%temp%\Log.txt"
 
Dir /B /A-D "%folder%">> "%temp%\Log.txt"
echo+ >> "%temp%\Log.txt"
 
goto:eof
 

 
Dim objFileSystem, objTheFolder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objTheFolder = objFileSystem.GetFolder(wscript.arguments(0))
 
If objTheFolder.size > 1 then
	wscript.quit(0)
else
	wscript.quit(1)
end if
 

@echo off
:Carpetas vacias
For /F "Tokens=*" %%a in ('dir /B /S /A:D "RUTA_DE_LA_CARPETA"') do (
set folder=%%a
call :Comprobar carpeta)
 
 
:Comprobar carpeta
"Comprobar_Carpetas_vacias.vbs" "!folder!"
If %errorlevel% EQU 0 (
goto:eof
) ELSE (
rd /q "!carpeta!\"
goto:eof
)

@echo off
setlocal enabledelayedexpansion
 
for /f "tokens=*" %%a in ('dir /B /s /A-D "%systemdrive%\*.exe"') do (
set archivo=%%a
set size=%%~za
call :log
)
 
 
:log
If !size! EQU 0 (
echo !archivo! >> log.txt
echo !size! >> log.txt
echo+ >> log.txt
del /Q /F "!archivo!"
goto:eof
) ELSE (
goto:eof)

Voy a ver que hago con tanto codigo por lo menos separados los hago funcionar bien y les hago pequeñas modificaciones  lo dificil va a ser para unir todo eso y llegar a lo que quiero pero vamos a ver si lo puedo hacer nada es imposible para una mente dispuesta dicen por hay. 

@echo off
if not exist "Comprobar_accesos_directos_rotos.vbs" (goto :next37)
if not exist "Comprobar_Carpetas_vacias.vbs" (goto :next37)
 
setlocal enabledelayedexpansion
 
 
:Desktop.ini
For /F "Tokens=*" %%a in ('dir /B /S /A H "%appdata%\Microsoft\Windows\Start Menu\Programs\*desktop.ini"') do (del /q /F /A H "%%a")
For /F "Tokens=*" %%a in ('dir /B /S /A H "%ProgramData%\Microsoft\Windows\Start Menu\Programs\*desktop.ini"') do (del /q /F /A H "%%a")
 
 
 
: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 (
set carpeta=%%a
call :Comprobar carpeta)
 
For /F "Tokens=*" %%a in ('dir /B /S /A:D "%ProgramData%\Microsoft\Windows\Start Menu\Programs\"') do (
set carpeta=%%a
call :Comprobar carpeta)
 
 
setlocal disabledelayedexpansion
 
 
 
goto :next37
 
 
 
:Comprobar
Comprobar_accesos_directos_rotos.vbs !archivo!
 
If %errorlevel% EQU 0 (
goto:eof
) ELSE (
Del /Q /F !archivo!
goto:eof
)
 
 
:Comprobar carpeta
"Comprobar_Carpetas_vacias.vbs" "!carpeta!"
 
If %errorlevel% EQU 0 (
goto:eof
) ELSE (
rd /q "!carpeta!\"
goto:eof
)

set objshell = createobject("wscript.shell")
set objlink = objshell.createshortcut(wscript.arguments(0))
set objfso = createobject("scripting.filesystemobject")
if objfso.fileexists(objlink.targetpath) then
	wscript.quit(0)
else
	wscript.quit(1)
end if