IBM Lotus Symphony
|
Devolve um padrão de bits que identifica o tipo de ficheiro de um volume ou directório.
GetAttr (Text As String)
Integer
Text: Qualquer expressão em caracteres que contenha uma especificação de ficheiro não ambígua. Pode também utilizar notação URL.
Esta função determina os atributos para um ficheiro especificado e devolve o padrão de bits que o pode ajudar a identificar os seguintes atributos de ficheiro:
0: Ficheiros normais.
1: Ficheiros só de leitura.
8: Devolve o nome do volume
16: Devolve apenas o nome do directório.
32: Ficheiro que foi alterado desde a última cópia de segurança (bit de arquivo).
Se pretender saber se um bit do byte de atributo já se encontra definido, utilize 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