Funktion GetAttr
Gibt ein Bitmuster zurück, das den Typ einer Datei, eines Verzeichnisses oder einer Datenträgerbezeichnung angibt.
Syntax:
GetAttr (Text As String)
Rückgabewert:
Integer
Parameter:
Text: Ein beliebiger Zeichenkettenausdruck, 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:
Wert
|
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:
Beispiel:
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