GetAttr függvény

Visszaad egy bitmintát, amely a fájl típusát vagy a kötet, illetve a könyvtár nevét azonosítja.

Szintaxis:


GetAttr (Szöveg As String)

Visszatérési érték:

Integer (egész szám)

Paraméterek:

Szöveg: Egyértelmű fájlspecifikációt tartalmazó string (karakterlánc) kifejezés. URL-jelölést is használhat.

Ez a függvény beolvassa egy adott fájl attribútumait, majd egy olyan bitmintát ad vissza, amely alapján a következő fájlattribútumokat azonosíthatja:

Hibakódok:

5 Érvénytelen eljáráshívás

53 A fájl nem található

Érték

Nevesített konstans

Érték

Definíció

ATTR_NORMAL

0

Normál fájlok.

ATTR_READONLY

1

Csak olvasható fájlok.

ATTR_HIDDEN

2

Rejtett fájl

ATTR_SYSTEM

4

Rendszerfájl

ATTR_VOLUME

8

Visszaadja a kötet nevét

ATTR_DIRECTORY

16

Csak a könyvtár nevét adja vissza.

ATTR_ARCHIVE

32

A fájl az utolsó biztonsági mentés után megváltozott (Archív bit).


Ha meg szeretné tudni, hogy az attribútumbájt egyik bitje be van-e állítva, akkor használja a következő lekérdezési módszert:

Példa:


Sub ExampleSetGetAttr
On Error GoTo ErrorHandler ' Definiálja a hibakezelő függvényt
 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

Please support us!