Mensajes

El de lambda no funciona porque tmb lo probe yo antes, si fuencionase no habría psoteado pidiendo ayuda.

Pero y si el texto que quiero que mire si concide [en este caso x] se encuentra en otro fichero?

[Text1.Text = Text1.Text + Temp]

Pero me explicas el código que si no no aprendo nada ?

Aparte me sigue dando error :S Al escribir en el textbox y presionar el botón sale el mensaje de error y puedo ver como se le añaden + carácteres a lo escrito [ÿþgg] :S

Aunque si quito el + temp , porque no se de que sirve , me funciona pero entonces veo lo de   If Pass = "x" Then , de que me sirve abrir el archivo si aquí pongo eso? :S aquí no tendría que poner la url del archivo y que lo lea?

Private Sub Command1_Click()
Dim Pass As String
Dim Temp As String
    nFic = FreeFile
    Open "C:\a.txt" For Input As nFic
    Do Until EOF(nFic)
    Input #nFic, Temp
    Text1.Text = Text1.Text + Temp
    Pass = Text1.Text
  Loop
     Close nFic

    If Pass = "x" Then
        Form2.Show
    Else
        MsgBox "Error, vuelva a intentarlo", vbCritical
        End
    End If
End Sub

Hola, estoy intentando hacer que si en un archivo pone x y un usuario escribe x se abrá un form y que de lo contrario salga una pantallita diciendo error.

Código [Seleccionar] Expandir

Private Sub Command1_Click()
If FSO.OpenTextFile("C:\programa\error\errorlog.txt").ReadAll <= Text1.Text = True Then
MsgBox "Error"
End
End If
Form2.Show
End Sub



Que hago mal?