Public Sub LeoFile(DirFile as String,NombreFichero as String)
Dim List1 As List
List1.Initialize
If File.Exists(DirFile, NombreFichero) Then
List1 = File.ReadList(DirFile, NombreFichero)
for n = 0 to 8 ' he puesto este valor por que es el que tu usas, 9 label lo suyo es List1.Size-1
' --------- aqui cargas tus label ---------
next
Else
' NO EXISTE
' Haz lo que creas pertinente, puedes ir a grabar los valores de los label o ponerlos a cero
End If
End Sub
Public Sub GraboFile(DirFile as String, NombreFichero as String)
Dim List1 As List
List1.Initialize
List1.Clear
for n = 0 to 8 ' tus label
List1.Add(pon aqui el valor de tus label)
next
Try
File.WriteList(DirFile,NombreFichero, List1)
Catch
Log("Error al escribir fichero")
End Try
End Sub