Module
Enhavo
Indekso 🔎︎

# GetAttr Function

Liveras bitan ŝablonon kiu identigas la dosieran tipon aŭ la nomon de volumo aŭ dosierujon.

## Sintakso:

    GetAttr (Text As String)

## Liverota valoro:

Entjero

## Parametroj:

Text: Ĉena esprimo kiu enhavas nedubsencan dosieran specifon. Ankaŭ uzeblas URL-notacio.

Ĉi tiu funkcio trovas la atributojn de specifita dosiero kaj liveras la bitan ŝablonon kiu povas helpi al oni identigi la jenajn atributojn:

## Error codes:

5 Nevalida procedurvoko

53 Dosiero ne trovita

## Valoro

Named constant | Value | Definition
ATTR_NORMAL | 0 | Normal files.
ATTR_READONLY | 1 | Read-only files.
ATTR_HIDDEN | 2 | Hidden file
ATTR_SYSTEM | 4 | System file
ATTR_VOLUME | 8 | Returns the name of the volume
ATTR_DIRECTORY | 16 | Returns the name of the directory only.
ATTR_ARCHIVE | 32 | File was changed since last backup (Archive bit).

Por trovi ĉu bito de la atributa bajto estas ŝaltita, uzu la jenan metodon informpeti:

## Ekzemplo:

    Sub ExampleSetGetAttr

    On Error Goto ErrorHandler REM Difini celon por erarotraktilo

     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