Public Sub LeoFile()
Dim DirFile As String
Dim List1 As List
List1.Initialize
DirFile= File.DirDefaultExternal
If File.Exists(DirFile, "DatosLogin.dat") Then
List1 = File.ReadList(DirFile, "DatosLogin.dat")
Try
Texto1 = List1.Get(0)
Texto2 = List1.Get(1)
' ............
' ............
Catch
Log("Error al leer Leofile")
' esto podria ser que has añadido una linea despues de crear el fichero
' o sea, creas el texto 1 y 2, lo grabas, añades el texto 3 y al leer como no existe (el Get(2) ) te da error
End Try
Else
' NO EXISTE EL FICHERO PONGO POR DEFECTO
texto1 = "pon lo que quieras por defecto, puede ser una cadena nula ("")"
texto2 = "pon lo que quieras por defecto, puede ser una cadena nula ("")
' ............
' ............
GraboFile
End If
End Sub
Public Sub GraboFile()
Dim DirFile As String
Log("GraboFile")
Dim List1 As List
List1.Initialize
DirFile= File.DirDefaultExternal
List1.Clear
List1.Add(Texto1)
List1.Add(Texto2)
' ............
' ............
Try
File.WriteList(DirFile,"DatosLogin.dat", List1)
Catch
Log("Error al escribir fichero DatosLogin.dat")
End Try
End Sub