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.

Function 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

Values of the file attributes on Windows:

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

Example:

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: