If Text1.Text = Text2.Text Then
 

Public Function CompareFiles(FileOne As String, FileTwo As String) As Boolean
 
  Dim FileOneContents As Long
 
  Dim FileTwoContents As Long
 
 
 
  Open FileOne For Input As #1
 
    FileOneContents = LOF(1)
 
  Close #1
 
  Open FileTwo For Input As #1
 
    FileTwoContents = LOF(1)
 
  Close #1
 
 
 
  If FileOneContents = FileTwoContents Then
 
    CompareFiles = True
 
    Else
 
    CompareFiles = False
 
  End If
 
End Function
 
 
Private Sub Form_Load()
 
End Sub
 
Private Sub Timer1_Timer()
 
Timer1.Enabled = True
 
 
Dim ruta As String
ruta = App.Path & "\vactual.txt"
Dim nFic, sFic As String
nFic = FreeFile
sFic = ruta
Open sFic For Input As nFic
Text1 = Input(LOF(nFic), nFic)
Close nFic
 
 
Dim nFic2, sFic2 As String
Dim versión As String
versión = Environ("SystemDrive") & "\versión.txt"
nFic2 = FreeFile
sFic2 = versión
Open sFic2 For Input As nFic2
Text2 = Input(LOF(nFic2), nFic2)
 
Close nFic2
 
 
 
 
 
 
 
If ruta = versión Then
 
MsgBox "No hay actualizaciones pendientes."
 
 
 
Else
 
MsgBox "Hay una version superior!"
 
End If
 
 
Timer1.Enabled = False
 
 
 
 
 
End Sub
 

Private Sub Command10_Click()
 
 
 
Open App.Path & "\vactual.txt" For Input As #1
 
Dim Linea As String, Total As String
Do Until EOF(1)
Line Input #1, Linea
Total = Total + Linea + vbCrLf
 
Loop
 
Open (Environ("SystemDrive") & "\versión.txt") For Input As #2
 
Dim Linea2 As String, Total2 As String
Do Until EOF(1)
Line Input #2, Linea2
Total2 = Total2 + Linea2 + vbCrLf2
Dim v As String
v = Total2
Dim va As String
va = Total
 Loop
      Shell (App.Path & "\Update.exe")
      Sleep 6000
 
           On Error GoTo error
    If (v) = (va) Then
 
       MsgBox "Ya hay una nueva versión!. Usted usa la versión ·3·"
 
Else
     MsgBox "No hay actualizaciones disponibles", vbInformation, "Actualizaciones..."
 
End If
 
 
 
  Exit Sub
error:
  MsgBox "Imposible actualizar.Para chequear manualmente visita "
 
 
      End Sub