Verifies lines

Hi, I use this code... when download finishe, it make download of link that is always to a line below!

but i need that Open Server.txt and Client.txt and verifies if the lines are equal, if it will be equal("=" in english is equal?:blush: ), it go to next line and verifies this line again!

1 - if some line will be different of Client.txt, it make download!

2 - if some line will be equal of Client.txt, it go to next line! anddd, verifies again this line (repeat 1)

Code:

---

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()

    Dim URL As String
    Dim strLines() As String
    Dim strParts() As String
    Dim FF As Integer
    Dim i As Long

    FF = FreeFile
    Open "Server.txt" For Binary As #FF
        URL = Space$(LOF(FF))
        Get #FF, , URL '// read the entire file
    Close #FF

    strLines = Split(URL, vbNewLine) '// split all the lines
   
    For i = LBound(strLines) To UBound(strLines) '// loop through the array
        If Len(strLines(i)) > 0 Then '// make sure it's not empty
            strParts = Split(strLines(i), ",") '// split the url and filename
       
            Label1.Caption = "Atualizando: " & strParts(1) '// update the label
       
            URLDownloadToFile 0, strParts(0), App.Path & "\" & strParts(1), 0, 0 '// download the file
        End If
    Next i
 
    Label1.Caption = "Download Finalizado!" '// all done

FileCopy "Server.txt", "Client.txt"

End Sub

---

Server.txt

Code:

---

http://64.56.75.249/update/game.exe ,game.exe

---

I posted before, but i "MARk RESOLVED", SORRY!!

Thaks! for your help :p