Porque no graba el archivo con este código:
Sub FicheroGps(texto As String)
Dim List1 As List
List1.Initialize
If File.Exists(File.DirAssets,"archivo.txt")=True Then
List1=File.ReadList(File.DirAssets,"archivo.txt")
End If
List1.Add(texto)
Try
File.WriteList(File.DirAssets,"archivo.txt", List1)
Catch
Log("Error al escribir fichero .txt")
End Try
End Sub
Sub FicheroGps(texto As String)
Dim List1 As List
List1.Initialize
If File.Exists(File.DirAssets,"archivo.txt")=True Then
List1=File.ReadList(File.DirAssets,"archivo.txt")
End If
List1.Add(texto)
Try
File.WriteList(File.DirAssets,"archivo.txt", List1)
Catch
Log("Error al escribir fichero .txt")
End Try
End Sub