Desktop Management Scripting-Sprache › Funktionen › Funktionen für das Dateisystem › SetFileAttributes - Festlegen der Dateiattribute

SetFileAttributes - Festlegen der Dateiattribute

Gültig für NetWare, Symbian OS, UNIX, Windows und Windows CE.

Die Funktion "SetFileAttributes" legt die Attribute der Datei oder des Verzeichnisses fest, die bzw. das durch "filename" angegeben wird.

Funktionssyntax:

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

filename (Dateiname)

Legt den Dateipfad fest.

attr

Kennzeichnet den festzulegenden Wert.

Windows

Werte der Dateiattribute unter Windows:

READONLY

Wert: 1

HIDDEN

Wert: 2

SYSTEM

Wert: 4

DIRECTORY

Wert: 16

ARCHIVE

Wert: 32

NORMAL

Wert: 128

TEMPORARY

Wert: 256

COMPRESSED

Wert: 2048

OFFLINE

Wert: 4096

Beispiel:

In diesem Beispiel werden die Attribute der Datei "AUTOEXEC.BAT" abgerufen und die Einstellung des Hidden-Flags geändert.

dim attr as integer
dim out as string

attr=GetFileAttributes("C:BAT")
if (attr<>-1) then
	 out=out+"Attribute: "+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("Informationen über C:\AUTOEXEC.BAT"+chr(10)+chr(10)+out)
else
	 MsgBox("C:\AUTOEXEC.BAT nicht gefunden")
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: