IBM Lotus Symphony
|
Define as informações sobre o atributo para um arquivo especificado.
SetAttr FileName As String, Attribute As Integer
FileName: Nome do arquivo, incluindo o caminho, do qual você deseja testar atributos. Se você não inserir um caminho, SetAttr pesquisará o arquivo no diretório atual. Também é possível usar a notação URL.
Attribute: Padrão de bits que define os atributos que você deseja definir ou limpar:
Valor
0 : Arquivos normais.
1 : Arquivos somente leitura.
32 : O arquivo foi alterado desde o último backup (Bit archive).
É possível definir vários atributos combinando os respectivos valores com uma instrução lógica OR.
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