Tengo el siguiente código:
Cuando se ejecuta el sub, se crea el archivo con las opciones del list1. Lo que no hace es copiar el archivo de la última linea. Este mismo código lo tengo en un sub aparte y cuando es ejecutado sí que se realiza la copia del archivo. El archivo existe cuando se llama al sub y las rutas son correctas.
B4X:
Sub Activity_Pause (UserClosed As Boolean)
Dim list1 As List
If (UserClosed= False) Then
list1.Initialize
'Guardamos las opciones
list1.Add(strFUENTE) 'Se guarda la fuente
list1.add(strESCENA) 'Se guarda la escena actual
list1.Add(intTEXTSIZE) 'Se guarda el tamaño del texto
list1.Add(intVIDEO) 'Se guarda la variable del video
File.WriteList(File.DirDefaultExternal, "/saves/pause.sav", list1)
'Guardamos la base de datos
File.Copy(File.DirDefaultExternal, strBD_ARCHIVO, File.DirDefaultExternal, "/saves/pause.bd")
'strBD_ARCHIVO es el nombre de un archivo que se encuentra en la ruta por defecto
End If
End Sub
Cuando se ejecuta el sub, se crea el archivo con las opciones del list1. Lo que no hace es copiar el archivo de la última linea. Este mismo código lo tengo en un sub aparte y cuando es ejecutado sí que se realiza la copia del archivo. El archivo existe cuando se llama al sub y las rutas son correctas.