Befehlsreferenz - Dateisystem: SetAttr-Anweisung

VB-Versionen:    VB4   |    VB5   |    VB6

Beschreibung:
Mit der SetAttr-Anweisung können verschiedene Attribute für Dateien vergeben werden.

Syntax:

SetAttr (PathName, Attributes)

Parameter:

PathName	(String) Name einer Datei, eines Ordners oder Laufwerks.
Attributes	(String) Konstante oder numerischer Ausdruck für das Dateiattribut, das vergeben werden soll.

Einstellungen für Attributes

Konstante	Wert	Beschreibung
vbNormal	0	Normal (Voreinstellung)
vbReadOnly	1	Schreibgeschützt
vbHidden	2	Versteckt
vbSystem	4	Systemdatei
vbArchive	32	Datei wurde seit dem letzten Speichern geändert

Beispiel:

Private Sub Command1_Click()
    ' Voraussetzung ist, dass die Datei existiert und nicht geöffnet ist
    SetAttr "C:\Eigene Dateien\Test.txt", vbHidden   ' Datei verstecken
    MsgBox "Datei wurde versteckt.", vbExclamation
 
    ' Datei verstecken und Schreibschutz setzen
    SetAttr "C:\Eigene Dateien\Test.txt", vbHidden + vbReadOnly
End Sub

Siehe auch:

GetAttr-Funktion