GetAttr funkcija

Pateikia bitų šabloną, identifikuojantį failo tipą, tomo ar katalogo pavadinimą.

Sintaksė:


GetAttr (tekstas eilute)

Grąžinama reikšmė:

Sveikasis skaičius

Parametrai:

Tekstas: Bet kuri eilutės išraiška, kuri pagrįsta nedviprasmiška failo specifikacija. Taip pat galite naudoti URL žymėjimą.

Ši funkcija nustato nurodyto failo atributus ir pateikia bitų šabloną, kuris gali padėti nustatyti šiuos failo atributus:

Klaidos kodai:

5 Neteisingas procedūros iškvietimas

53 failas nerastas

Reikšmė

Įvardinta konstanta	Reikšmė	Aprašas
ATTR_NORMAL	0	Įprasti failai.
ATTR_READONLY	1	Tik skaitymui failai.
ATTR_HIDDEN	2	Paslėptas failas
ATTR_SYSTEM	4	Sisteminis failas
ATTR_VOLUME	8	Grąžina tomo pavadinimą
ATTR_DIRECTORY	16	Grąžina tik katalogo pavadinimą.
ATTR_ARCHIVE	32	Failas buvo pakeistas nuo paskutinės atsarginės kopijos (archyvo bitų).

Jei norite sužinoti, ar nustatytas atributo baitas, naudokite šį užklausos metodą:

Pavyzdys:


Sub ExampleSetGetAttr
On Error GoTo ErrorHandler 'Apibrėžkite klaidų tvarkytuvo tikslą
 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