IBM Lotus Symphony
|
Angiver attributoplysninger for en angivet fil.
SetAttr Filnavn As String, Attribut As Integer
Filnavn: Navnet på og stien til den fil, du vil angive attributter for. SetAttr søger efter filen i det aktive bibliotek, hvis du ikke angiver en sti. Du kan også bruge URL-notation.
Attribut: Bitmønster, som definerer de attributter, du vil slå til eller fra:
Værdi
0 : Almindelige filer.
1 : Skrivebeskyttede filer.
32 : Filen er ændret siden sidste sikkerhedskopiering (arkivbit).
Du kan angive flere attributter ved at kombinere de respektive værdier med en logisk OR-sætning.
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