IBM Lotus Symphony
|
Devuelve el modo de acceso o el número de acceso a un archivo que se ha abierto con la sentencia Open. El número de acceso al archivo depende del sistema operativo (OSH = Operating System Handle).
![]() |
Si utiliza un sistema operativo de 32 bits, no puede utilizar la función FileAttr para determinar el número de acceso al archivo. |
Consulte también: Open
FileAttr (FileNumber As Integer, Attribute As Integer)
Entero
FileNumber: número del archivo que se ha abierto con la instrucción Open.
Attribute: expresión de entero que indica el tipo de información de archivo que desea que se devuelva. Los valores siguientes son posibles:
1: la función FileAttr indica la modalidad de acceso del archivo.
2: la función FileAttr devuelve el número de acceso al archivo del sistema operativo.
Si especifica un atributo de parámetro con un valor 1, se aplican los valores de retorno siguientes:
1: INPUT (archivo abierto para entrada)
2: OUTPUT (archivo abierto para salida)
4: RANDOM (archivo abierto para acceso aleatorio)
8: APPEND (archivo abierto para adición)
32: BINARY (archivo abierto en modalidad binaria).
Sub ExampleFileAttr
Dim iNumero As Integer
Dim sLinea As String
Dim aArchivo As String
aArchivo = "c:\data.txt"
iNumero = Freefile
Open aArchivo For Output As #iNumero
Print #iNumero, "Esta es una línea de texto"
MsgBox FileAttr(#iNumero, 1 ),0,"Modalidad de acceso"
MsgBox FileAttr(#iNumero, 2 ),0,"Atributo de archivo"
Close #iNumero
End Sub