Access - Archivos de Texto

Hola que tal soy nuevo en el foro, tengo una pregunta, veran tengo un módulo que registra la serie del disco duro, pero lo que quiero es que este se guarde en un documento de texto. A continuación un pequeño ejemplo de lo que quiero.

en el evento abrir ó cargar del formulario principal pongo esto:

if serialdeldiscoduro = DH then 'DH seria el archivo de texto guardado con la serial
'no haria nada si son iguales
else
'si en tal caso no son correctos entonces que cierre la mdb

Hola

Esta es una pequenas esplicacion de como leer y guardar datos en un archivo(Una solo linea).

Si necesitas guardar un dato a un archivo de texto lo puedes hacer asi:

Open "C:\SerialDisco.txt" For Append As 1
print #1,serialdeldiscoduro
Close 1

Listo en la primera linea abres el archivo en modo de agregar datos,luego escribe el valor de la variable en ese archivo y por ultimo lo cierras.

Para recuperar el dato gurdado seria asi:

Open "C:\SerialDisco.txt" For input As 1
line input #1,serialdeldiscoduro
Close 1

Abres el archivo, lees una linea que se guarda en a variable serialdeldiscoduro y por ultimo cierras el archivo.

Una vex que allas leido el dato del archivo puedes hacer cualquier comparacion

if serialdeldiscoduro<>HD then
Appplication.Quit
End if

En este caso solo seria necesario mirar si los seriales no concuerdan.

Saludos
http://www.theemulator.tk