IBM Lotus Symphony


Sætningen SetAttr [Runtime]

Angiver attributoplysninger for en angivet fil.

Syntaks:

SetAttr Filnavn As String, Attribut As Integer

Parametre:

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.

Fejlkoder

5 Ugyldigt procedurekald

53 Filen er ikke fundet

70 Adgang nægtet

Eksempel:

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


Produktfeedback | Yderligere dokumentation | Varemærker