IBM Lotus Symphony
|
Establece la información de atributo para un archivo especificado.
SetAttr NombreArchivo As String, Atributo As Entero
NombreArchivo: nombre del archivo, incluida la vía de acceso, cuyos atributos desea probar. Si no especifica una vía de acceso, SetAttr busca el archivo en el directorio actual. También puede utilizar la notación de URL.
Atributo: patrón de bits que define los atributos que desea establecer o borrar:
Valor
0: archivos normales
1: archivos de sólo lectura
32: el archivo ha cambiado desde la última copia de seguridad (bit de archivo).
Puede establecer varios atributos combinando los valores respectivos con una sentencia de OR lógico.
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