localpana.blogg.se

MessageBox.Show("Your application is already updated. If UpdateTextLines(1) = Application.ProductVersion Then My.("", CombinePath(DataDirectory, "UpdaterTest.txt"))ĭim UpdateTextLines() As String = System.IO.File.ReadAllLines(CombinePath(DataDirectory, "UpdaterTest.txt")) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Here's the code I wanted to use on "UpdaterTest" project:ĭim DataFilePath As String = "C:\" Dim ApplicationName As String = "UpdaterTest" Dim DataDirectory As String = CombinePath(DataFilePath, ApplicationName) I want to store a txt file (called "UpdaterTest.txt" in the code below) to check if new version is avaiable, where I put in the first line the link to download the executable and in the second line the last version, and the executable toĭownload. Some people succeed because they were destined to, but most people succeed because they were determined to. I also have a few websites and depending on what you want to store, I might be persuaded to set something up for you. If you want to use their "free" service then you play by their rules. Nothing is free - you're seeing that now.