Local $sAttribute = FileGetAttrib(@ScriptFullPath) ; Gebe die Dateiattribute von diesem Skript zurück. If @error Then MsgBox(4096, "Fehler", "Kann die Dateiattribute nicht auslesen.") Exit Else If StringInStr($sAttribute, "R") Then ; Wenn der Attributs-String den Buchstaben "R" enthält, dann ist die Datei schreibgeschützt. MsgBox(4096, "", "Die Datei ist schreibgeschützt.") EndIf EndIf ; Erstelle ein eindimensionales Array, das die Buchstaben der Dateiattribute enthält. Local $aInput = StringSplit("R,A,S,H,N,D,O,C,T", ",") ; Erstelle ein eindimensionales Array, das die Dateiattributsbezeichnungen enthält. Local $aOutput = StringSplit("Read-only /, Archive /, System /, Hidden /" & _ ", Normal /, Directory /, Offline /, Compressed /, Temporary /", ",") ; Ersetze innerhalb der Schleife die Buchstaben der Dateiattribute durch die Dateiattributsbezeichnungen, z.B. A wird durch Archive ersetzt. For $i = 1 To $aInput[0] $sAttribute = StringReplace($sAttribute, $aInput[$i], $aOutput[$i], 0, 1) Next ; Entferne das einfache Leerzeichen und den angehängten Slash. $sAttribute = StringTrimRight($sAttribute, 2) ; Gebe die konvertierten Dateiattributsbuchstaben aus. MsgBox(4096, "Vollständige Dateiattribute:", $sAttribute)