IBM Lotus Symphony
|
Devuelve un patrón de bits que identifica el tipo de archivo o el nombre de un volumen o un directorio.
GetAttr (Text As String)
Entero
Text: cualquier expresión de cadena que contenga una especificación de archivo no ambigua. También puede utilizar la notación de URL.
Esta función determina los atributos de un archivo especificado y devuelve el patrón de bits que puede ayudarle a identificar los siguientes atributos de archivo:
0: archivos normales
1: archivos de sólo lectura
8: devuelve el nombre del volumen
16: sólo devuelve el nombre del directorio.
32: el archivo ha cambiado desde la última copia de seguridad (bit de archivo).
Si desea saber si un bit del byte de atributo se ha establecido, utilice el método de consulta siguiente:
Sub ExampleSetGetAttr
On Error Goto ErrorHandler REM Definir destino para manejador de errores
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
ManejadorError:
Print Error
end
end sub