GETATTR function
Purpose: Used for obtaining file attributes.
Syntax: Attribs% = GETATTR(FileName$) Parameters:
|
Example:
DIM
attribs%DIM
int1%$COMMENT
FILE_ATTRIBUTE_READONLY=
1
A read-only file. FILE_ATTRIBUTE_HIDDEN=
2
A hidden file. FILE_ATTRIBUTE_SYSTEM=
4
A system file, used by the operating system. FILE_ATTRIBUTE_DIRECTORY=
16
A folder instead of a file. FILE_ATTRIBUTE_ARCHIVE=
32
An archive flag marking a file for backup. FILE_ATTRIBUTE_NORMAL=
128
A file with no attributes. FILE_ATTRIBUTE_COMPRESSED=
2048
A file in a compressed drive or folder.$COMMENT
attribs%=
GETATTR
(
"myfile.bas"
)
' read file attributes
int1%=
attribs%AND
FILE_ATTRIBUTE_READONLYIF
int1% <>0
THEN
"Read-only"
END
IF
int1%=
attribs%AND
FILE_ATTRIBUTE_HIDDENIF
int1% <>0
THEN
"Hidden"
END
IF
int1%=
attribs%AND
FILE_ATTRIBUTE_SYSTEMIF
int1% <>0
THEN
"System"
END
IF
int1%=
attribs%AND
FILE_ATTRIBUTE_DIRECTORYIF
int1% <>0
THEN
"Folder"
END
IF
int1%=
attribs%AND
FILE_ATTRIBUTE_ARCHIVEIF
int1% <>0
THEN
"Archive flag set"
END
IF
int1%=
attribs%AND
FILE_ATTRIBUTE_NORMALIF
int1% <>0
THEN
"Normal, no other attributes set"
END
IF
int1%=
attribs%AND
FILE_ATTRIBUTE_COMPRESSEDIF
int1% <>0
THEN
"File in Compressed Drive or Folder"
END
IF
BCX Console Sample Programs using GETATTR function.
SETATTR statement
Purpose: SETATTR is used for setting file attributes.
Syntax: SETATTR(FileName$, Attribs%) Parameters:
|