Thread obsoleto Aggiornamento applicazione ? Non mi funge

SONNYDJJ

Utente Medio
Autore del topic
1 Settembre 2009
159
0
Miglior risposta
0
Salve ragazi,ho bisogno di un aiutino,
sto creando un processo di aggiornamento per una mia applicazione,l'idea è quella classica di scaricare un file txt,far controllare se contiene una certa versione e aggiornarla se la versione corrisponde a quella richiesta
il codice è cosi:
If My.Computer.Network.IsAvailable = True Then
My.Computer.Network.DownloadFile("http://mktechnolab@mktechnolab.altervista.org/versione.txt", Environment.GetFolderPath(Environment.SpecialFolder.Desktop + "\versione.txt"))
If My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\versione.txt") = "2.0.0.0" Then
MsgBox("E' disponibile un aggiornamento alla versione 3.0.0.0,Si desidera aggiornare adesso?", MsgBoxStyle.OkCancel, "Aggiornamento disponibile!")
If MsgBoxResult.Ok Then
'Aggiorna,scarica un altro file txt che contiene l'indirizzo del file,e lo scarica
End If

Else
MsgBox("Nessun aggiornamento disponibile!", MsgBoxStyle.Information)


End If
Else
MsgBox("Errore,impossibile connettersi alla rete!", MsgBoxStyle.Critical, "Errore:Non connesso alla rete!") 'se rete non disponibile

End If
In particolare pero' alla riga numero due mi dice "Cast non valido dalla stringa "\versione.txt" al tipo 'Double'." Idee?

Un altra domandina,io ho scritto che la versione contenuta nel fie txt deve essere 3.0.0.0 per dire che c'è un aggiornamento,ma se volessi fare in modo che mi dica che c'è un aggiornamento quando il valore del file txt è maggiore di quello della versione ?
Dovrei fare tipo cosi ?
If My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\versione.txt") > "2.0.0.0" Then
MsgBox("E' disponibile un aggiornamento alla versione 3.0.0.0,Si desidera aggiornare adesso?", MsgBoxStyle.OkCancel, "Aggiornamento disponibile!")
Grazie in anticipo,aspetto risposte:nocomment:
 
Riferimento: Aggiornamento applicazione ? Non mi funge

My.Computer.Network.DownloadFile("http://mktechnolab@mktechnolab.altervista.org/versione.txt",
Environment.GetFolderPath(Environment.SpecialFolde r.Desktop + "\versione.txt"))

Fixxed:
My.Computer.Network.DownloadFile("http://mktechnolab.altervista.org/versione.txt", Environment.GetFolderPath(Environment.SpecialFolde r.Desktop + "\versione.txt"))
 
Riferimento: Aggiornamento applicazione ? Non mi funge

Sposto in assistenza tecnica.
 
Riferimento: Aggiornamento applicazione ? Non mi funge

My.Computer.Network.IsAvailable...non va tanto bene, visto che se hai una macchina virtuale con l'adattatore (virtuale) installato ti da la connessione disponibile...
potresti usare:
Codice:
Perfavore, Entra oppure Registrati per vedere i codici!

Per leggere il file senza doverlo per forza salvare su disco puoi usare
Codice:
Perfavore, Entra oppure Registrati per vedere i codici!