(solucionado)probrema con Type

[Zeroql]

buenas amigos hace rato que no entro a este post. pero me surgio un problema con la libreria Type, tengo esto:

Código [Seleccionar] Expandir


Type RasLib 'libreria del archivo de actualizacion
NomApp As String * 20 'se encarga de almacenar el nombre de la aplicacion
version As String * 10 'Se encarga de la version para actualizar
Archivos As String * 300  ' para saber que archivos se van actualizar
End Type
Public NewVer As RasLib

bien por el momento va bien, el problema es cuando abro el archivo.

Código [Seleccionar] Expandir


Sub verAct()  'funcion para verificar la version del archivo
  verApp = App.Major & "." & App.Minor & "." & App.Revision 'version de la aplicacion
  'abrir el archivo para ver la nueva version
  Open App.Path + "\RasDat.lcof" For Random As #1
  Get #1, , NewVer

he aqui donde se me forma el problema
me dice que el archivo esta fuera del limite. y esto es por que en Archivos As String esta en 300 si lo paso a 50 funciona bien. pero he credo aplicaciones con types de 500 y es la primera ves que me sucede esto, alguie me explica el por que  no me fuciona al leer el archivo? y posibles soluciones gracias

[Sancho.Mazorka]

es xq no podes usar solamente la var NewVer para obtener los datos, creo que tenes que obtener x tipo, NewVer.NomApp o sino xq quiere leer 300 caracteres cuando no los hay, alguna de esas 2 razones puede ser, asegurate de que tenga 330 caracteres el archivo tuyo y va a funcionar o proba poner un On Error Resume Next al principio del Sub VerAct()


Sancho.Mazorka   

[Zeroql]

si ya la he probrado con todos los caracteres completos (330) y aun asi no funciona

[Zeroql]

ya he solucionado el error que tenia para keines tambientengan este error se soluciona colocando

Código [Seleccionar] Expandir


  Open App.Path + "\RasDat.lcof" For Random As #1 len=len(newVer)

newVer se refiere a la variable asignada al tipe