Password Protect a Folder w/o Software or .bat file

I got alot of help with this from rasimmer but here you go password your file

Set wshShell =wscript.CreateObject("WScript.Shell")

Dim Password
Dim objFSO : Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

WScript.Sleep 500

Password=InputBox("Enter Password:","Password Protecter","Case Sensetive")
WScript.Sleep 100
If Password="TYPE YOUR PASSWORD HERE" or Password="RETYPE YOUR PASSWORD HERE" then
msgbox("Unlocked")
Dim objFolder2 : Set objFolder2=objFSO.getFolder("E:\games.{21EC2020-3AEA-1069-A2DD-08002B30309D}")
objFolder2.Name= "games"
else
msgbox("Locked")

    Dim objFolder : Set objFolder = objFSO.GetFolder("E:\Games")
    objFolder.Name = "games.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
end if

wscript.sleep 500