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:

Fehlercodes:

5 Ungültiger Prozeduraufruf

53 Datei nicht gefunden

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

Bitte unterstützen Sie uns!