Crazy mappar (1 / 2 steg)
Steg 1: Koden
utanförtiteln animerade mapp
SETLOCAL EnableDelayedExpansion
rem === inställningar ===
Ange "mappnamn = animerade"
Ange "folderAddress = % folderName %"
Ange "animNum = 1"
Ange "intervall = 5" sekunder
rem ===================== CLSID ======================
Ange "CLSID1 = {ff393560-c2a7-11cf-bff4-444553540000}" historia
Ange "CLSID2 = {20d04fe0-3aea-1069-a2d8-08002b30309d}" min dator
Ange "CLSID3 = {450d8fba-ad25-11d0-98a8-0800361b1103}" mapp
Ange "CLSID4 = {22877a6d-37a1-461a-91b0-dbda5aaebc99}" senaste platser
Ange "CLSID5 = {645ff040-5081-101b-9f08-00aa002f954e}" papperskorgen
Ange "CLSID6 = {d20ea4e1-3957-11d2-a40b-0c5020524153}" Administrationsverktyg
Ange "CLSID7 = {1FA9085F-25A2-489B-85D4-86326EEDCD87}" hantera nätverk
Ange "CLSID8 = {85BBD920-42A0-1069-A2E4-08002B30309D}" portfölj
Ange "CLSID9 = {2559A1F1-21D7-11D4-BDAF-00C04F60B9F0}" hjälpa
Ange "CLSID10 = {2559A1F3-21D7-11D4-BDAF-00C04F60B9F0}" kör
Ange "CLSID11 = {2559A1F0-21D7-11D4-BDAF-00C04F60B9F0}" Sök
Ange "CLSID12 = {2559A1F2-21D7-11D4-BDAF-00C04F60B9F0}" Lås Pad
rem ==================================================
Ange "mappar = 0"
för/l % i (1,1,1024) göra om definieras CLSID %% n som /a "anims =! anims! + 1"
ställa in "finns = % anims %"
för/l % i (1,1, anims %) göra ()
om det finns % folderAddress %.! CLSID %% n! (
ställa in "finns = %% Nilsson"
Ange/a "mappar =! mappar! + 1"
)
)
om inte % mappar % lss % animNum % gå till setup
ECHO mappen "% folderAddress %" finns inte
ECHO.
Val/c YN/m "Vill du skapa mappen för animationer?"
Ange "mappar = 1"
MD "% folderAddress %.! CLSID1!"
om % errorlevel % == 0 gå till setup
ECHO.
ECHO kunde inte skapa mapp
pausa
Exit
: setup
Ange "nextNum = % finns %"
CLS
ECHO mappar: mappar %
ECHO animationer: % anims %
ECHO intervall: % intervallet % s
ECHO.
ECHO Stäng detta fönster för att stoppa animeringen
ECHO.
: animation
Ange "nowNum = % nextNum %"
Ange/a "nextNum = % nowNum % + 1"
om "% nowNum"=="% anims %" ställa in "nextNum = 1"
titeln animerade mapp [% nextNum %]
ren "% folderAddress %.! CLSID % nowNum %!" "% folderName %.! CLSID % nextNum %!" 2 > nul
timeout/t % intervallet % /nobreak > nul
gå till animering