LibreOfficeDev 25.8 Βοήθεια
Καθορίζει τις πληροφορίες χαρακτηριστικών για ένα καθορισμένο αρχείο.
SetAttr PathName As String, Attributes As Integer
FileName: Το όνομα του αρχείου, συμπεριλαμβανομένης της διαδρομής, της οποίας θέλετε να δοκιμάσετε τα χαρακτηριστικά. Εάν δεν εισαγάγετε μια διαδρομή, το SetAttr αναζητά το αρχείο στον τρέχοντα κατάλογο. Μπορείτε επίσης να χρησιμοποιήσετε τη σημειογραφία URL.
Attributes: Μοτίβο δυαδικών (bit) που ορίζει τα χαρακτηριστικά που θέλετε να ορίσετε ή να διαγράψετε:
| Επώνυμη σταθερά | Τιμή | Ορισμός | 
|---|---|---|
| ATTR_NORMAL | 0 | Κανονικά αρχεία. | 
| ATTR_READONLY | 1 | Αρχεία μόνο για ανάγνωση. | 
| ATTR_HIDDEN | 2 | Κρυφά αρχεία | 
Μπορείτε να καθορίσετε πολλαπλά χαρακτηριστικά συνδυάζοντας τις αντίστοιχες τιμές με μια λογική πρόταση OR.
Sub ExampleSetGetAttr
 On Error Goto ErrorHandler ' Καθορίστε τον στόχο για τον χειριστή λάθους
 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