IBM Lotus Symphony
|
Angir attributtinformasjon for en spesifisert fil.
SetAttr Filnavn som streng, Attributt som heltall
Filnavn: Navn på filen, inklusive banen, som du vil teste attributtene til. Hvis du ikke angir en bane, søker SetAttr etter filen i gjeldende katalog. Du kan også bruke URL-notasjon.
Attributt: Bitmønster som definerer attributtene du vil angi eller fjerne:
Verdi
0 : Normale filer.
1 : Skrivebeskyttede filer.
32 : Filen ble endret siden siste sikkerhetskopi (arkiv-bit).
Du kan angi flere attributter ved å kombinere de respektive verdiene med et logisk OR-setning.
Sub ExampleSetGetAttr
On Error Goto ErrorHandler REM Definer målet for feilbehandler
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