sebastian
22 de Abril del 2004

Hola, gracias por toda la info que me enviaste pero tengo 8n problema al leer el archivo.
para grabar estoy utilizando esto:
datos.rtitulo = Text1.Text
Open "c:programacategorias.cav" For Random As #1 Len = Len(datos)
Put #1, LOF(1) / Len(datos) + 1, datos
Close #1
y para leer estoy utilizando esto:

Open "c:programacategorias.cav" For Random As #1 Len = Len(Datos)
Get #1, List1.ListIndex + 1, Datos
List1.AddItem Datos.rtitulo
Close #1
MsgBox Datos.rtitulo

el error es "numero de registro incorrecto"
te comento que en un modulo tengo lo siguiente :

Type Registro
datos As Integer
rtitulo As String * 20
End Type

y en el general del formulario :
Dim datos As Registro

Gracias por la bola !!!

en?
22 de Abril del 2004

hola sebastian, eso és culpa mía, lo siento.
Lo más problable és que no haya ningún elemento de la lista seleccionado, estando List1.ListIndex = -1, y cuando intenta leer el registro cero te da el error, y lo mismo si se pretende una modificación.

Para evitarlo puedes verificar que hay un elemento seleccionado antes de abrir el fichero para leer o modificar:
If List1.ListIndex < 0 then
Msgbox "Ningún elemento ha sido seleccionado",vbinformation
Exit sub
End If

Comprueba a ver si es este el problema.
modifícalo para que se adapte más a tus necesidades.

Saludos.