Diverse Bat-tricks

Start stifinder fra command-prompt

start .

FixMMCDLL.BAT

@echo off
CD /D %SystemRoot%\System32
del /q Msxml.dll
del /q Msxml2.dll
del /q Msxml3.dll
copy /Y %windir%\system32\DLLCACHE\Msxml.dll *.*
copy /Y %windir%\system32\DLLCACHE\Msxml2.dll *.*
copy /Y %windir%\system32\DLLCACHE\Msxml3.dll *.*
regsvr32 /s Msxml.dll
regsvr32 /s Msxml2.dll
regsvr32 /s Msxml3.dll 

RYDOP.BAT - Slet alle filer undtagen de x nyeste

@echo off

rem Behold de x nyeste filer, fx beholdes de 20 nyeste filer med: RYDOP.BAT 20

rem Nedenstående tvinger beholdes til at være numerisk uanset hvad.
rem Hvis %1 ikke er numerisk ignoreres den i additionen, dvs beholdes sættes lig nul
set /A beholdes=%1+0

rem Hvis beholdes er mindre end 1 så er det nok et fejlkald, vi stopper
if %beholdes% lss 1 goto :EOF

if exist rydopxpq.txt erase rydopxpq.txt 

set antal=0

dir /a-d /o-d /b > rydopxpq.txt

rem Vi adderer lige 1 til beholdes (da rydopxpq.txt står øverst på listen i rydopxpq.txt)
set /A beholdes+=1

for /f "delims=;" %%f in (rydopxpq.txt) do call :check "%%f"

if exist rydopxpq.txt erase rydopxpq.txt 

goto :EOF


:check
  set /A antal+=1
  if %antal% gtr %beholdes% (erase "%~1") 
exit /b