IBM Lotus Symphony
|
Returnerer et bitmønster, der identificerer filtypen eller navnet på et drev eller et bibliotek.
GetAttr (Tekst As String)
Heltal
Tekst: Et strengudtryk, der indeholder en utvetydig filangivelse. Du kan også bruge URL-notation.
Funktionen finder attributterne for en angivet fil og returnerer det bitmønster, du kan bruge til at identificere følgende filattributter:
0 : Almindelige filer.
1 : Skrivebeskyttede filer.
8 : Returnerer navnet på drevet.
16 : Returnerer kun navnet på biblioteket.
32 : Filen er ændret siden sidste sikkerhedskopiering (arkivbit).
Brug følgende forespørgselsmetode, hvis du vil vide, om en bit i attributbyten er slået til:
Sub SetGetAttrEksempel
On Error Goto ErrorHandler REM Definér mål for fejlhåndtering
If Dir("C:\test",16)="" Then MkDir "C:\test"
If Dir("C:\test\autoexec.gem")="" THEN Filecopy "c:\autoexec.bat", "c:\test\autoexec.gem"
SetAttr "c:\test\autoexec.gem" ,0
Filecopy "c:\autoexec.bat", "c:\test\autoexec.gem"
SetAttr "c:\test\autoexec.gem" ,1
print GetAttr( "c:\test\autoexec.gem" )
end
ErrorHandler:
Print Error
end
End Sub