Leer TXT vb6

Hoy le muestro la forma de almacenar un usuario y una clave en un archivo de texto, de manera que si intenta compiarnos la aplicación, el sistema primero busca dicho archivo en caso de no existir no permite continuar.

Nota: el archivo esta creado en un archivo plano(Note Pad o bloc de nota)
En la primera linea almacena el nombre de usuario y la segunda la clave.


Open "C:\Sistema\RUTA.txt" For Input As #1
Dim Linea As String, Total As String
'Dim FILA As Integer

Do Until EOF(1)
Dim miArray() As String
Line Input #1, Linea
miArray = Split(Linea, ",")
Total = Total + Linea + vbCrLf


Loop
Close #1

USARIO = miArray(0)
CLAVE = miArray(1)

Att.
Diógenes Amaury MS


Es en la crisis donde aflora lo mejor de cada uno, porque sin crisis todo viento es caricia.
Albert Einstein.
1879-1955.