IBM Lotus Symphony
|
Retorna um padrão de bits que identifica o tipo de arquivo ou o nome de um volume ou diretório.
GetAttr (Text As String)
Inteiro
Text: Qualquer expressão de sequência que contenha uma especificação de arquivo não ambígua. Também é possível usar a notação URL.
Esta função determina os atributos para um arquivo especificado e retorna o padrão de bits que pode ajudá-lo a identificar os seguintes atributos de arquivo:
0 : Arquivos normais.
1 : Arquivos somente leitura.
8 : Retorna o nome do volume
16 : Retorna apenas o nome do diretório.
32 : O arquivo foi alterado desde o último backup (Bit archive).
Se desejar saber se um bit do byte de atributo está definido, use o seguinte método de consulta:
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