Hilfe für LibreOffice 24.8
Gibt ein Bitmuster zurück, das den Typ einer Datei, eines Verzeichnisses oder einer Datenträgerbezeichnung angibt.
GetAttr (Text As String)
Integer
Text: Ein beliebiger Zeichenfolgenausdruck, der eine eindeutige Dateiangabe enthält. Sie können auch die URL-Schreibweise verwenden.
Diese Funktion bestimmt die Attribute einer bestimmten Datei und gibt ein Bitmuster zurück, aus dem Sie folgende Dateiattribute erkennen können:
| Benannte Konstante | Wert | Definition | 
|---|---|---|
| ATTR_NORMAL | 0 | Normale Dateien. | 
| ATTR_READONLY | 1 | Schreibgeschützte Dateien. | 
| ATTR_HIDDEN | 2 | Versteckte Dateien | 
| ATTR_SYSTEM | 4 | Systemdateien | 
| ATTR_VOLUME | 8 | Der Name des Laufwerks wird zurückgegeben. | 
| ATTR_DIRECTORY | 16 | Nur der Verzeichnisnamen werden zurückgegeben. | 
| ATTR_ARCHIVE | 32 | Die Datei wurde seit dem letzten Backup geändert (Archive-Bit). | 
Um zu erfahren, ob ein bestimmtes Bit des Attributbytes gesetzt ist, verwenden Sie folgende Abfragemethode:
Sub ExampleSetGetAttr
On Error GoTo ErrorHandler ' Sprungziel für Fehlerbehandlung definieren
 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" ,1
 Print GetAttr( "c:\test\autoexec.sav" )
 End
ErrorHandler:
 Print Error
 End
End Sub