IBM Lotus Symphony
|
Define as informações de atributo para um ficheiro especificado.
SetAttr FileName As String, Attribute As Integer
FileName: Nome do ficheiro, incluindo o caminho, cujos atributos pretende testar. Se não introduzir um caminho, SetAttr procura o ficheiro no directório actual. Pode também utilizar notação URL.
Attribute: Padrão de bits que define os atributos que pretende para definir ou limpar:
Valor
0: Ficheiros normais.
1: Ficheiros só de leitura.
32: Ficheiro que foi alterado desde a última cópia de segurança (bit de arquivo).
Pode definir vários atributos através da combinação dos respectivos valores com uma instrução OR lógica.
Sub ExampleSetGetAttr
On Error Goto ErrorHandler REM Define target for error-handler
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