Comparar Contenido de archivo con un TextBox

alex
24 de Octubre del 2003
Hola amigos por favor vean este codigo y me cuentan en que me estoy callendo

'les detallo el ejemplo........para que sea mas claro

' esta opcion me crea un nuevo dato en Ficheroclave.txt

Private Sub cmd_guardar_Click()
Dim CanalLibre As Integer

CanalLibre = FreeFile()

'Abrimos el fichero en el canal dado
Open "C:Ficheroclave.txt" For Output As #CanalLibre

'Escribo el contenido del TextBox al fichero
Print #CanalLibre, txtnueva_clave
Close #CanalLibre
'txtnueva_clave.Text = ""

End Sub

'Ahora mi problema es que..............

'si yo deseo cambiar la clave entonces debo digitar el dato que esta en uso (el contenido en el Ficheroclave.txt)
'al presionar cmd_validar debe compararlo con Ficheroclave.txt, ahora si pongo el dato en ambos txtbox realiza la funcion
'del If pero si no hay nada en el txtnueva_clave entonces realiza lo descrito en Else por lo cual esta claramente comparando
'con la Propiedad Text de txtnueva_clave y no con el Ficheroclave.TXT, ....Disculpenme pero me pegue la mareada

Private Sub cmd_validar_Click()
Dim nuevaclave As String

nuevaclave = txtnueva_clave.Text
If txtclave_actual = nuevaclave Then
txtclave_actual.Enabled = False
Else
MsgBox "Su clave es incorrecta", vbCritical, "Ud. no está autorizado"
txtclave_actual = ""
txtclave_actual.SetFocus
End If

End Sub