GetAttr Function

Returnerer et bitmÞnster som identifiserer filtypen eller navnet pÄ et volum eller en katalog.

Syntaks


GetAttr (Text As String)

Returverdi

Heltall

Parameter

Text: Any string expression that contains an unambiguous file specification. You can also use URL notation.

Denne funksjonen bestemmer attributtene for en spesifisert fil og returnerer bitmĂžnsteret som kan hjelpe deg med Ă„ identifisere fĂžlgende filattributter:

Feilkoder

5 Ugyldig prosedyreoppkall

53 Fant ikke filen

Verdi

Navngitt konstant

Verdi

Definisjon

ATTR_NORMAL

0

Normale filer.

ATTR_READONLY

1

Skrivebeskyttede filer.

ATTR_HIDDEN

2

Skjult fil

ATTR_SYSTEM

4

System fil

ATTR_VOLUME

8

Returnerer navnet pÄ volumet

ATTR_DIRECTORY

16

Returnerer kun navnet pÄ katalogen.

ATTR_ARCHIVE

32

Filen ble endret siden siste sikkerhetskopiering (arkivbit).

Hvis du vil vite om en bit av attributtbyten er satt, bruk fĂžlgende spĂžrringsmetode:

Eksempel:


Sub ExampleSetGetAttr
On Error GoTo ErrorHandler ' Definer mÄl for feilbehandler
 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

Supporter oss!