Visual Basic - AYUDA POR FAVOR ERROR!!

Bueno ante todo gracias por leer el aviso, bueno os cuento lo q me pasa, tengo q hacer un proyecto en visual y me da un error en esta parte del codigo y la verdad es q no se porque si alguien me logra decir que ocurre os lo agradeceria..gracias

fictexto.Close
Set fichero = fso.GetFile(App.Path & "\" & "hollyview" & "\" & "usuarios.txt")
Set fictexto = fichero.OpenAsTextStream(ForAppending)
datos = fictexto.ReadLine
Do Until fictexto.AtEndOfStream.....

el error da en datos = fictexto.ReadLine y el numero de error y la descripcion es error 54 descripcion "modo de archivo incorrecto"

si me contestais me hariais un gran favor

mi correo es [email protected]

Lo que puede suceder es que tu archivo este tildado como "Solo Lectura"
Puedes usar la lo siguiente

muxas gracias por la pagina, ya lo solucione, te pongo la solucion q seguro q maana me dicen q no vale pero weno...muxas gracias por contestarme....

Set fichero = fso.GetFile(App.Path & "\" & "hollyview" & "\" & "usuarios.txt")
Set fictexto = fichero.OpenAsTextStream(ForReading)
sw = False
'datos = fictexto.ReadLine
Do Until fictexto.AtEndOfStream

datos = fictexto.ReadLine
If Trim(Right(datos, 15)) = "administrador" Then

contador = contador + 1
If contador = 2 Then 'comprueba que no se introduzca un nuevo administrador
MsgBox "No se puede introducir otro administrador", vbCritical, "AVISO"
txtusuarios = ""
txtcontrase1 = ""
txtcontrase2 = ""
txttipo = ""

txtusuarios.SetFocus

Exit Sub
End If


End If

Loop
If Trim(txttipo) <> "administrador" Then

'graba los datos introducidos
datos = login & "-" & password & "-" & tipo
Set fictexto = fichero.OpenAsTextStream(ForAppending)
fictexto.WriteLine (datos)

End If

y ya parece q no me da error.....

muchas gracias de verdad....espero poder ayudarte yo algun dia(q lo dudo pero weno...que aki estoy para lo q necesites)

muxas gracias por la pagina, ya lo solucione, te pongo la solucion q seguro q maana me dicen q no vale pero weno...muxas gracias por contestarme....

Set fichero = fso.GetFile(App.Path & "\" & "hollyview" & "\" & "usuarios.txt")
Set fictexto = fichero.OpenAsTextStream(ForReading)
sw = False
'datos = fictexto.ReadLine
Do Until fictexto.AtEndOfStream

datos = fictexto.ReadLine
If Trim(Right(datos, 15)) = "administrador" Then

contador = contador + 1
If contador = 2 Then 'comprueba que no se introduzca un nuevo administrador
MsgBox "No se puede introducir otro administrador", vbCritical, "AVISO"
txtusuarios = ""
txtcontrase1 = ""
txtcontrase2 = ""
txttipo = ""

txtusuarios.SetFocus

Exit Sub
End If


End If

Loop
If Trim(txttipo) <> "administrador" Then

'graba los datos introducidos
datos = login & "-" & password & "-" & tipo
Set fictexto = fichero.OpenAsTextStream(ForAppending)
fictexto.WriteLine (datos)

End If

y ya parece q no me da error.....

muchas gracias de verdad....espero poder ayudarte yo algun dia(q lo dudo pero weno...que aki estoy para lo q necesites)

De nada, con que ayudes a alguien del foro ya me ayudas a mi.

Un abrazo