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?), 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)
Server.txtCode: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
I posted before, but i "MARk RESOLVED", SORRY!!Code:http://64.56.75.249/update/game.exe ,game.exe
Thaks! for your help![]()




), it go to next line and verifies this line again!
Reply With Quote