Module
Contents
Index 🔎︎

# GetAttr Function

Zwraca ciąg binarny określający typ pliku lub nazwę woluminu lub katalogu.

## Składnia:

    GetAttr (tekst As String)

## Zwracana wartość:

Liczba całkowita

## Parametry:

Tekst: Dowolny ciąg jednoznacznie określający plik. Istnieje możliwość użycia notacji URL.

Funkcja określa atrybuty dla podanego pliku i zwraca ciąg binarny pomocny w ustaleniu następujących atrybutów pliku:

## Kody błędów:

5 Nieprawidłowe wywołanie procedury

53 Plik nie został odnaleziony

## Wartość

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).

Aby dowiedzieć się, czy bit bajtu atrybutu jest ustawiony, należy skorzystać z następującej metody sprawdzenia:

## Przykład:

    Sub ExampleSetGetAttr

    On Error Goto ErrorHandler ' Zdefiniowanie celu obsługi błędów

     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