Desktop Management Scripting-Sprache › Funktionen › Funktionen für das Dateisystem › GetFileAttributes - Abrufen der Dateiattribute

GetFileAttributes - Abrufen der Dateiattribute

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

Die Funktion "GetFileAttributes" ruft die Attribute der Datei oder des Verzeichnisses ab, die bzw. das durch "filename" angegeben wird.

Funktionssyntax:

GetFileAttributes(filename as String) as Integer

filename (Dateiname)

Gibt den Dateipfad an.

In der folgenden Liste sind die Werte der Dateiattribute für alle unterstützten Windows-Plattformen aufgelistet. Die Parameterwerte sind Dezimalwerte.

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

Bei erfolgreichem Abschluss gibt die Funktion einen Wert zurück, der die Attribute der angegebenen Datei oder des angegebenen Verzeichnisses enthält. Wenn die Datei nicht existiert, wird der Wert -1 zurückgegeben.

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: