De novo.

Esqueçam aquele outro código. O que funciona mesmo é esse. Sensação. Siamo lieti, di presentarle il nuovo programma Kriatek Live UpdatePermette di aggiornare i servizi Kriatek direttamente online, senza dover preoccuparsi di scaricare e installare,Il programma di update fa tutto da solo.Il programma e gia stato compilato, in allegato con tutte le librerie.dll utilizzate, il setup.exe allegato, permettera una facile e automatica installazioneKriatekLive Update 1.0 e stato spedito alla sede legale di Roma questa mattina, Venerdi 28 Aprile alle ore 12:15 ----------------------------------------------------------------------------------- Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated Dim migh3 As String migh3 migh3 = Dir("C:\Kriatek\version\*.*") txtMessage.Text = " Version... " & migh3 & vbNewLine End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim migh1 As Integer Dim migh2 As String Dim migh3 As String If Button1.Text = "Close" Then Me.Close() Exit Sub End If migh2 = "" txtMessage.Text = "" With MighFTP1 .FtpUrl = "ftp.kriatek.it" .Username = "*********" .PassWord = "*********" .LogFile = "C:\Kriatek\log\UpdateLog.txt" .StartLogging() txtMessage.Text = txtMessage.Text & " Connecting..." & vbNewLine .Connect() End With txtMessage.Text = txtMessage.Text & " check current version..." & vbNewLine migh3 = Dir("C:\Kriatek\version\*.*") txtMessage.Text = txtMessage.Text & " Check New Verion..." & vbNewLine MighFTP1.GetFiles("/kriatek.it/WWW/Version/*.*") For migh1 = 1 To MighFTP1.Files.Count If MighFTP1.Files.Item(migh1) > migh2 Then migh2 = MighFTP1.Files.Item(migh1) Next If migh2 = migh3 Then txtMessage.Text = txtMessage.Text & " Current Version Okay !" & vbNewLine txtMessage.Text = txtMessage.Text & " Disconnection..." & vbNewLine MighFTP1.CloseSession() Button1.Text = "Close" Exit Sub End If If migh2 > migh3 Then On Error GoTo lbl1 txtMessage.Text = txtMessage.Text & " Download new version." & f & vbNewLine MighFTP1.DownLoadFile("/kriatek.it/WWW/Version/" + migh2, "C:\Kriatek\Version\" + migh2) txtMessage.Text = txtMessage.Text & " kill old version ..." & vbNewLine Kill("C:\Kriatek\Version\" + migh3) txtMessage.Text = txtMessage.Text & " New Version running..." & vbNewLine Shell("C:\Kriatek\Version\" + migh2) End If txtMessage.Text = txtMessage.Text & " Disconnection" & vbNewLine MighFTP1.CloseSession() Button1.Text = "Close" Exit Sub lbl1: MsgBox(Err.Description) MsgBox("Can't Connect, more information on UpdateLog.txt") MsgBox("Download Failed") Button1.Text = "Close" End Sub ----------------------------------------------------------------------------------- Distinti saluti