You can check a file's attributes and then set an attribute using LotusScript. For example, the following code checks whether a file is Hidden, and if it is, sets its Hidden attribute
%Include "LSCONST.LSS"
Dim iAttributes As Integer
iAttributes = GetFileAttr("C:\TEMP.TXT")
If (iAttributes And ATTR_HIDDEN) Then
Call SetFileAttr("C:\TEMP.TXT", ATTR_READONLY)
End If
Dim iAttributes As Integer
iAttributes = GetFileAttr("C:\TEMP.TXT")
If (iAttributes And ATTR_HIDDEN) Then
Call SetFileAttr("C:\TEMP.TXT", ATTR_READONLY)
End If
No comments:
Post a Comment