Eu funciono.

Sto lavorando alla costruzione di un programma per fare l'update Open Virtual Studio Open Project Kriatek UpdateView Code ------------------------------------------------------------------ Sub iLoVeMiGh () Dim Migh1 as integer Dim Migh2 as String Dim Migh3 as String Migh2 = "0" Dim migh as new ctlFTP ! Check Connection If migh.isnetconnected = false Then MsgBox "Lost Connection" Return End if! Connect to FTP migh.ftpurl= "ftp.kriatek.it" migh.username= "" migh.password= "" migh.logfile= "E:\Prova\log\UpdateLog.txt" migh.connect ! LogInState If LoggingState = false MsgBox "Cannot connect" Exit Sub End If Migh3 = Dir("E:\Prova\version") migh.getfiles "/kriatek.it/WWW/Version" For Migh1 = 1 to migh.files.count If n.files(i)>m Then m=n.files(i) Next If migh2 = migh3 Then MsgBox "Version notneed update" migh.CloseSession Exit sub End If If migh2 > migh3 Then OnError GoTo lbl1 migh.downloadfile m, "E:\Verion\" + migh2 End If Kill "E:\Prova\Version\" + migh3 migh.CloseSession Shell "E:\Prova\Version\" + migh2 Exit Sub lbl1: MsgBox "Download Failed, Try again" End Sub ------------------------------------------------------------------ E sai qual'e la cosa piu divertente?? E' che il PROGRAMMA FUNZIONAAAAAAAAAAAAAAAAAA, il tuo nome ha dato un tocco di classe alle mie variabili.