XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dateiattribute prüfen
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer - Alle Rechte vorbehalten
Testen, ob ein bestimmtes Dateiattribut gesetzt ist
siehe Attribut-Flags unter GetFAttr in profan.hlp
Als Funktion mit übergebenem Dateinamen ab Profan 7 einsetzbar
Def FileHasAttr(2) If(Equ(And(GetFAttr($(1)),%(2)),%(2)),1,0)

Proc IsFileAttrSet  für Profan unter 7.0

    Parameters file$,attr%
    Declare result%
    FileMode 0
    Assign #1,file$
    Let result%=If(Equ(And(GetFAttr(#1),attr%),attr%),1,0)
    FileMode 2
    Return result%

EndProc

Beispiele
Cls
Nur für Profan 7 aktivieren:
Print FileHasAttr(C:AUTOEXEC.BAT,$20)  Archiv-Flag ?
IsFileAttrSet C:AUTOEXEC.BAT,$20
Print %(0)
WaitInput