Spis treści

# Funkcja GetAttr

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ść

Nazwana stała | Wartość | Definicja
--- | --- | ---
ATTR_NORMAL | 0 | Pliki normalne.
ATTR_READONLY | 1 | Pliki tylko do odczytu.
ATTR_HIDDEN | 2 | Plik ukryty
ATTR_SYSTEM | 4 | Plik systemowy
ATTR_VOLUME | 8 | Zwraca nazwę woluminu
ATTR_DIRECTORY | 16 | Zwraca tylko nazwę katalogu.
ATTR_ARCHIVE | 32 | Plik został zmieniony od ostatniej archiwizacji (bit pliku archiwalnego).

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

Prosimy o wsparcie!