Table Of Contents

Index

FileAttr (String) : Number

Example:

   var Temp
   Temp = BinString(FileAttr(Cmdline),8)
   Writeln "Menu FileName: " + Cmdline + "       " + Temp
   Writeln " "
   if mid(Temp,8,1)="1" then Writeln "READ-ONLY FLAG SET"
   if mid(Temp,7,1)="1" then Writeln "HIDDEN FLAG SET"
   if mid(Temp,6,1)="1" then Writeln "SYSTEM FLAG SET"
   if mid(Temp,3,1)="1" then Writeln "ARCHIVE BIT SET"

Example:

   ; to set the file attribute
   FileAttr ('MARXMENU.OVR') = 1   ;sets to read-only

Table Of Contents

Index