Mensajes

Solucion :

Código (vb) [Seleccionar] Expandir

If Text1.Text = Text2.Text Then


perdon por tantos posts, pero consegui cargar las verciones en textbox y comparar los textbox's.

pero ahora pasa esto! :S



el codigo que uso para comparar :

Código (vb) [Seleccionar] Expandir

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


Miren, lo q pasa es q compara como el culo, lo ponga de la forma q lo ponga, compara como el culo.

en los 2 archivos .txt hay un solo caracter , q es depende a la version, en este caso el 3.

y depende como ponga eso de if y eso me sale el cartel. en definitiva, NO COMPARA, pero tira el error que quiere.

desde el vamos el error esta aca

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

si la version = a version actual entonces no hay actualizciones, esta al revez.

mas alla de eso ni idea :S

No entendi ^;D

Hola!

uso este codigo, pero compara mal :S

Código (vb) [Seleccionar] Expandir

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

osea, tira cualquier cosa! :S

Alguien me dice que esta mal?

Ya use varios codigos y en to2 me pasa lo mismo ...