Desktop Management Scripting Language › Functions › File System Functions › SetFileAttributes - Set the File Attributes

SetFileAttributes - Set the File Attributes

Valid on NetWare, Symbian OS, UNIX, Windows and Windows CE

The SetFileAttributes function sets the attributes of the file or directory specified by filename.

This file content function has the format:

SetFileAttributes(filename as String,attr as Integer) as Boolean

filename

Specifies the file path.

attr

Indicates the value that is to be set.

Windows

The following list indicates the values of the file attributes on Windows. Parameter values are decimal.

READONLY

Value: 1

HIDDEN

Value: 2

SYSTEM

Value: 4

DIRECTORY

Value: 16

ARCHIVE

Value: 32

NORMAL

Value: 128

TEMPORARY

Value: 256

COMPRESSED

Value: 2048

OFFLINE

Value: 4096

For a list of the file attributes supported on UNIX, see UNIX File Attributes.

Example: SetFileAttributes function

This example reports the attributes on AUTOEXEC.BAT and switches the Hidden flag.

dim attr as integer
dim out as string

attr=GetFileAttributes("C:BAT")
if (attr<>-1) then
	 out=out+"Attributes: "+chr(9)+"["
	 if attr and FA_ARCHIVE then out=out+"A"
	 if attr and FA_SYSTEM then out=out+"S"
	 if attr and FA_HIDDEN then out=out+"H"
	 if attr and FA_RDONLY then out=out+"R"

	 out=out+"]"
	 MsgBox("Information on C:\AUTOEXEC.BAT"+chr(10)+chr(10)+out)
else
	 MsgBox("Cannot find C:\AUTOEXEC.BAT")
end if
if attr and FA_HIDDEN then
	attr = attr - FA_HIDDEN
	SetFileAttributes("C:\AUTOEXEC.BAT", attr)
else
	attr = attr + FA_HIDDEN
	SetFileAttributes("C:\AUTOEXEC.BAT", attr)
End If
end: