IBM Lotus Symphony
|
Määrittää määritetyn tiedoston määritetiedot.
SetAttr FileName As String, Attribute As Integer
FileName: Sen tiedoston nimi ja polku, jonka määritteitä haluat testata. Jos et anna polkua, SetAttr hakee tiedostoa nykyisestä hakemistosta. Voit käyttää myös URL-osoitteiden esitysmuotoa.
Attribute: Määritettävät tai tyhjennettävät määritteet määrittävä bittikuvio:
Arvo
0: Tavalliset tiedostot.
1: Vain luku -tiedostot.
32: Tiedostoa on muutettu edellisen varmistuskopioinnin jälkeen (arkistobitti).
Voit määrittää useita määritteitä yhdistämällä vastaavat arvot loogisen OR-lauseen avulla.
Sub ExampleSetGetAttr
On Error Goto ErrorHandler REM Määrittää virheenkäsittelyn kohteen
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