<HTML>
<BODY>

<%
' Make a file hidden and read-only
Set AU = Server.CreateObject("Persits.AspUser")
Set File = AU.File("d:\somefile.txt")

File.Attributes = File.Attributes + FILE_ATTRIBUTE_READONLY + FILE_ATTRIBUTE_HIDDEN
%>

</BODY>
</HTML>