Hide A File Using Vbscript

code here:

strFile = “C:Documents and SettingsOwnerDesktopWinsplat.txt”

boolHide = True

set objFSO = CreateObject(“Scripting.FileSystemObject”)

set objFile = objFSO.GetFile(strFile)

if boolHide = True then
if objFile.Attributes AND 2 then
else
objFile.Attributes = objFile.Attributes + 2
end if
else
if objFile.Attributes AND 2 then
objFile.Attributes = objFile.Attributes – 2
else
end if
end if