$sAttribute = FileGetAttrib("c:\boot.ini")
If @error Then
	MsgBox(4096, "Ошибка", "Невозможно получить атрибуты файла.")
	Exit
Else
	If StringInStr($sAttribute, "R") Then
		MsgBox(4096, "", "Файл только для чтения.")
	EndIf
EndIf

; Отображает полную информацию атрибута в текстовой форме
; Создание двух массивов, в котором индексы позиции полного и сокращённого имени атрибута совпадают
$aInput = StringSplit("RASHNDOCT", '')
; $aOutput = StringSplit("Read-only,Archive,System,Hidden," & _ ; англ. названия
		; "Normal,Directory,Offline,Compressed,Temporary", ",")
$aOutput = StringSplit("Только чтение,Архивный,Системный,Скрытый," & _
		"Нормальный,Папка,Оффлайн,Сжатый,Временный", ",")
For $i = 1 To 9
	$sAttribute = StringReplace($sAttribute, $aInput[$i], $aOutput[$i] & ' / ', 0, 1) ; замена сокращённого на полное имя атрибута
	; последний параметр в функции StringReplace означает "учитывать регистр букв"
Next
$sAttribute = StringTrimRight($sAttribute, 3) ; удаляет разделительный слеш и пробел в конце строки
MsgBox(0, "Полные атрибуты файла:", $sAttribute)