Crazy Folders

This is a cool new batch code I found it changes a folder named animated to different things like a brief case, my computer, and more.

Please note I did NOT create this file... find the link in step 2.

@echo off
title Animated Folder

setlocal EnableDelayedExpansion

rem ==================== Settings ====================
set "folderName=Animated"
set "folderAddress=%folderName%"
set "animNum=1"
set "interval=5" seconds
rem ===================== CLSID ======================
set "CLSID1={ff393560-c2a7-11cf-bff4-444553540000}" History
set "CLSID2={20d04fe0-3aea-1069-a2d8-08002b30309d}" My computer
set "CLSID3={450d8fba-ad25-11d0-98a8-0800361b1103}" Folder
set "CLSID4={22877a6d-37a1-461a-91b0-dbda5aaebc99}" Recent Places
set "CLSID5={645ff040-5081-101b-9f08-00aa002f954e}" Recycle Bin
set "CLSID6={d20ea4e1-3957-11d2-a40b-0c5020524153}" Administrative tools
set "CLSID7={1FA9085F-25A2-489B-85D4-86326EEDCD87}" Manage networks
set "CLSID8={85BBD920-42A0-1069-A2E4-08002B30309D}" Briefcase
set "CLSID9={2559A1F1-21D7-11D4-BDAF-00C04F60B9F0}" Help
set "CLSID10={2559A1F3-21D7-11D4-BDAF-00C04F60B9F0}" Run
set "CLSID11={2559A1F0-21D7-11D4-BDAF-00C04F60B9F0}" Search
set "CLSID12={2559A1F2-21D7-11D4-BDAF-00C04F60B9F0}" Lock Pad
rem ==================================================

set "folders=0"

for /l %%n in (1,1,1024) do if defined CLSID%%n set /a "anims=!anims!+1"

set "exist=%anims%"

for /l %%n in (1,1,%anims%) do (
if exist %folderAddress%.!CLSID%%n! (
set "exist=%%n"
set /a "folders=!folders!+1"
)
)

if not %folders% lss %animNum% goto setup
echo Folder "%folderAddress%" is not found
echo.
choice /c YN /m "Do you want to create that folder for the animations?"

set "folders=1"
md "%folderAddress%.!CLSID1!"
if %errorlevel%==0 goto setup
echo.
echo Could not create folder
pause
exit

:setup
set "nextNum=%exist%"
cls
echo Folders : %folders%
echo Animations : %anims%
echo Interval : %interval% s
echo.
echo Close this window to stop the animation
echo.

:animation
set "nowNum=%nextNum%"
set /a "nextNum=%nowNum%+1"
if "%nowNum%"=="%anims%" set "nextNum=1"

title Animated Folder [%nextNum%]
ren "%folderAddress%.!CLSID%nowNum%!" "%folderName%.!CLSID%nextNum%!" 2> nul

timeout /t %interval% /nobreak > nul
goto animation

Thanks everyone
The original link can be found here: http://winscr.blogspot.com/2012/09/animated-folders.html

And if you like batch codes view my full screen batch matrix here


https://www.instructables.com/id/Full-screen-batch-matrix/