XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei-Attribute entfernen (auch von Ordnern)
REM FRAGE:      Wie entferne ich Attribute einer Datei bzw. eines Verzeichnisses?
REM AUTOR:      cnesm
REM HOMEPAGE:   www.cnesm.de.vu
REM HINWEISS:   Testen und Nutzen der Quelltexte auf eigene Gefahr
REM HINWINGUNG: Freie Nutzung der Quelltexte [freiwillige Erwähnung des Autors]
REM ATTRIBUT-BESCHREIBUNG
REM Setfattr #1,$01   Schreibgeschützt Datei
REM Setfattr #1,$02   Unsichtbar Datei
REM Setfattr #1,$04   System-Datei
REM Setfattr #1,$08   Label
REM Setfattr #1,$10   Directory-Eintrag
REM Setfattr #1,$20   Archiv-Datei
REM Alle Attribute einer Datei zurücksetzen
Assign #1,Demo.txt
Setfattr #1,$00
Close #1
REM Bestimmte Attribute einer Datei zurücksetzen [Jörg Sellmeyer]
Assign #1,Demo.txt
SetFAttr #1,Xor(GetFAttr(#1),$01)
Close #1
REM Attribute eines Verzeichnisses zurücksetzen
Assign #1,Demo
Setfattr #1,$00
Close #1
REM Bestimmte Attribute eines Verzeichnisses zurücksetzen
Assign #1,Demo
SetFAttr #1,Xor(GetFAttr(#1),$01)
Close #1