IBM Lotus Symphony
|
Legt die Attributinformationen für eine angegebene Datei fest.
SetAttr Dateiname As String, Attribut As Integer
Dateiname: Name der Datei, einschließlich Pfad, deren Attribute Sie testen möchten. Wenn Sie keinen Pfad eingeben, sucht SetAttr im aktuellen Verzeichnis nach der Datei. Sie können auch die URL-Schreibweise verwenden.
Attribut: Bitmuster, die die festzulegenden oder zu löschenden Attribute definieren:
Wert
0 : Normale Dateien.
1 : Schreibgeschützte Dateien.
32 : Datei wurde seit der letzten Sicherung geändert (Archivierungsbit).
Sie können mehrere Attribute festlegen, indem Sie die entsprechenden Werte mit einer logischen ODER-Anweisung kombinieren.
Sub ExampleSetGetAttr
On Error Goto ErrorHandler REM Ziel für Fehlerbehandlung definieren
If Dir("C:\test",16)="" Then MkDir "C:\test"
If Dir("C:\test\autoexec.sav")="" THEN Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"
SetAttr "c:\test\autoexec.sav" ,0
Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"
SetAttr "c:\test\autoexec.sav" ,1
print GetAttr( "c:\test\autoexec.sav" )
end
ErrorHandler:
Print Error
end
end sub