IBM Lotus Symphony


Instrução SetAttr [Tempo de Execução]

Define as informações sobre o atributo para um arquivo especificado.

Sintaxe:

SetAttr FileName As String, Attribute As Integer

Parâmetros:

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.

Códigos de Erro

5 Chamada de procedimento inválida

53 Arquivo não localizado

70 Permissão negada

Exemplo:

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


Feedback do Produto | Documentação Adicional | Marcas Registradas