Pomoc LibreOffice 24.8
Ustawia informację o atrybutach określonego pliku.
SetAttr PathName As String, Attributes As Integer
FileName: nazwa pliku wraz ze ścieżką, którego atrybuty chcesz przetestować. Jeśli nie wpiszesz ścieżki, SetAttr wyszuka plik w bieżącym katalogu. Możesz także użyć notacji adresu URL.
Attributes: wzorzec bitowy definiujący atrybuty, które chcesz ustawić lub wyczyścić:
| Nazwana stała | Wartość | Definicja | 
|---|---|---|
| ATTR_NORMAL | 0 | Pliki normalne. | 
| ATTR_READONLY | 1 | Pliki tylko do odczytu. | 
| ATTR_HIDDEN | 2 | Plik ukryty | 
Funkcja pozwala na łączenie różnych atrybutów przez połączenie odpowiednich wartości za pomocą instrukcji logicznej OR.
Sub ExampleSetGetAttr
 On Error Goto ErrorHandler ' Zdefiniowanie celu obsługi błędów
 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" , ATTR_READONLY
 Print GetAttr( "c:\test\autoexec.sav" )
 End
ErrorHandler:
 Print Error
 End
End Sub