Monday, September 26, 2011

Code to check whether a file is Hidden

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

No comments:

Post a Comment