IBM Lotus Symphony


Instrução SetAttr [Runtime]

Define as informações de atributo para um ficheiro especificado.

Sintaxe:

SetAttr FileName As String, Attribute As Integer

Parâmetros:

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.

Códigos de erro

5 Chamada de procedimento não válido

53 Ficheiro não encontrado

70 Autorização recusada

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


Comentários sobre o produto | Documentação adicional | Marcas comerciais