Hola
porque no lo haces en vez de archivo de texto con el registro de windows
con las funciones savesetting y getsetting.(deletesetting para eliminar)
estas funciones escriben en la clave de registro:
HKEY_CURRENT_USER\Software\VB and VBA Program Settings
te pongo un ejemplo:
en un form pon dos botones y un label, el command1 acumula pulsaciones y el command2 las lee y las muestra en el label.
--------------------------------------------------------------------------------------------------
Public contador As Integer
Private Sub Command1_Click()
'leemos el ultimo valor guardado y lo metemos a variable contador'
contador = GetSetting(App.EXEName, "boton", "nºveces", contador)
'si es la primera vez que se ejecuta el programa'
'comprobamos que el valor exista y sino que valga 0'
If contador = Null Then
contador = 0
Call SaveSetting(App.EXEName, "boton", "nºveces", contador)
Else
'si existe el valor le sumamos 1 y guardamos'
contador = contador + 1
Call SaveSetting(App.EXEName, "boton", "nºveces", contador)
End If
End Sub
Private Sub Command2_Click()
contador = GetSetting(App.EXEName, "boton", "nºveces", contador)
Label1.Caption = "contador= " & contador
End Sub
--------------------------------------------------------------------------------------------------------
salu2