buenas amigos hace rato que no entro a este post. pero me surgio un problema con la libreria Type, tengo esto:
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.
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
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 :¬¬
si ya la he probrado con todos los caracteres completos (330) y aun asi no funciona
ya he solucionado el error que tenia para keines tambientengan este error se soluciona colocando
Open App.Path + "\RasDat.lcof" For Random As #1 len=len(newVer)
newVer se refiere a la variable asignada al tipe