GetAttr-funksjonen
Returnerer eit bitmønster som identifiserer filtypen eller namnet på lagringsmediumet eller ei mappe.
Syntaks:
GetAttr (Tekst As String)
Returverdi:
Heiltal
Parametrar:
Tekst: Eit strenguttrykk som inneheld ein utvetydig filspesifikasjon. Du kan også bruka URL-notasjon.
Denne funksjonen bestemmer eigenskapane for ei spesifisert fil og returnerer bitmønsteret som kan hjelpe deg til å identifisera desse filattributta:
Verdi
Namngjeven konstant |
Verdi |
Definisjon |
ATTR_NORMAL |
0 |
Normale filer. |
ATTR_READONLY |
1 |
Skriveverna (read-only) filer. |
ATTR_HIDDEN |
2 |
Gøymde filer |
ATTR_SYSTEM |
4 |
Systemfiler |
ATTR_VOLUME |
8 |
Returnerer namnet på lagringsmediumet. |
ATTR_DIRECTORY |
16 |
Returnerer berre namnet på katalogen. |
ATTR_ARCHIVE |
32 |
Fila er endra sidan sist reservekopiering («Archive bit»). |
Viss du vil finna ut om ein bit i attributt-byten er sett, bruk denne spørjemåten:
Eksempel:
Sub ExampleSetGetAttr
On Error GoTo ErrorHandler ' Definerer målet for feilhandteraren
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