Código:
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:
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