I tried it but I discovered that it is not downloading right the UpdaterTest.txt file. TextBox1.Text = Application.ProductVersion MessageBox.Show("Your application have been updated sucessfully!", "Updated!") My.(CombinePath(DataDirectory, "UPDATED.txt")) My.(CombinePath(DataDirectory, "UpdaterTest.exe")) (OriginalExecutablePath)ĮlseIf My.(CombinePath(DataDirectory, "UPDATED.txt")) Then My.(CombinePath(DataDirectory, "UPDATED.txt"), "", False) My.(CombinePath(DataDirectory, "updating.txt")) My.(Application.ExecutablePath, OriginalExecutablePath, True) If Application.ExecutablePath() = CombinePath(DataDirectory, "UpdaterTest.exe") Thenĭim OriginalExecutablePath As String = System.IO.File.ReadAllText(CombinePath(DataDirectory, "updating.txt")) Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load (CombinePath(DataDirectory, "UpdaterTest.exe")) My.(CombinePath(DataDirectory, "updating.txt"), Application.ExecutablePath, False) My.(UpdateTextLines(0), CombinePath(DataDirectory, "UpdaterTest.exe")) No newer updates are avaiable.", "No updates avaiable") 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 #DROPBOX SIGN IN ERROR NOT EX CODE#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) #DROPBOX SIGN IN ERROR NOT EX DOWNLOAD#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.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |