Hide And Un-Hide A Folder From Your PC. Great For Porn!

@echo off
mode con: cols=46 lines=2
title Hidden Folder.
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Private goto MDPrivate
:CONFIRM
color 4
title Lock Folder?
set file=C:\Windows\media\Windows Pop-up Blocked.wav
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "%file%"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
start /min sound.vbs
PING localhost -n 2 >NUL
del %userprofile%\Desktop\sound.vbs
echo Do You Want To Lock This folder?
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==Yes goto LOCK
if %cho%==y goto LOCK
if %cho%==YEs goto LOCK
if %cho%==yEs goto LOCK
if %cho%==yES goto LOCK
if %cho%==YES goto LOCK
if %cho%==YeS goto LOCK
if %cho%==yeS goto LOCK
if %cho%==yes goto LOCK
if %cho%==1 goto LOCK
if %cho%==Ok goto LOCK
if %cho%==oK goto LOCK
if %cho%==OK goto LOCK
if %cho%==ok goto LOCK
if %cho%==n goto END
if %cho%==N goto END
if %cho%==No goto END
if %cho%==no goto END
if %cho%==0 goto END
if %cho%==Nope goto END
if %cho%==nope goto END
if %cho%==Nah goto END
if %cho%==nah goto END
if %cho%==... goto END
color 4
cls
title Error!
set file=C:\Windows\media\Windows Critical Stop.wav
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "%file%"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
start /min sound.vbs
PING localhost -n 2 >NUL
del %userprofile%\Desktop\sound.vbs
echo Invalid Choice
PING localhost -n 2 >NUL
goto CONFIRM
:LOCK
ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
color e
cls
title Loading...
set file=C:\Windows\media\Windows Proximity Notification.wav
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "%file%"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
start /min sound.vbs
PING localhost -n 2 >NUL
del %userprofile%\Desktop\sound.vbs
echo Locking Folder Please Wait
PING localhost -n 2 >NUL
cls
color 0a
title Success!
set file=C:\Windows\media\Windows Notify Email.wav
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "%file%"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
start /min sound.vbs
PING localhost -n 2 >NUL
del %userprofile%\Desktop\sound.vbs
echo Folder Locked Successfully
PING localhost -n 2 >NUL
goto End
:UNLOCK
color 1
title Password!
set file=C:\Windows\media\Windows Foreground.wav
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "%file%"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
start /min sound.vbs
PING localhost -n 2 >NUL
del %userprofile%\Desktop\sound.vbs
echo Enter Password to Unlock Your Hidden Folder
set/p "pass=>"
if NOT %pass%== password goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private
color e
CLS
title Loading...
set file=C:\Windows\media\Windows Proximity Notification.wav
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "%file%"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
start /min sound.vbs
PING localhost -n 2 >NUL
del %userprofile%\Desktop\sound.vbs
echo Unlocking Folder Please Wait
PING localhost -n 2 >NUL
color 2
CLS
title Success!
set file=C:\Windows\media\Windows Notify Calendar.wav
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "%file%"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
start /min sound.vbs
PING localhost -n 2 >NUL
del %userprofile%\Desktop\sound.vbs
echo Folder Unlocked Successfully
PING localhost -n 2 >NUL
goto End
:FAIL
color 4
CLS
title Wrong!
set file=C:\Windows\media\Windows Critical Stop.wav
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "%file%"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
start /min sound.vbs
PING localhost -n 2 >NUL
del %userprofile%\Desktop\sound.vbs
echo Invalid Password
PING localhost -n 2 >NUL
goto end
:MDPrivate
md Private
color 1
CLS
title Folder Created
set file=C:\Windows\media\tada.wav
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "%file%"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
start /min sound.vbs
PING localhost -n 2 >NUL
del %userprofile%\Desktop\sound.vbs
echo Private Folder Created Successfully
PING localhost -n 2 >NUL
del %userprofile%\Desktop\sound.vbs
goto End
:End
CLS
exit