Ajuda PFV

Question

Bom dia eu fiz um auto update para meu programa mas na hora que eu clico para atualizar ele baixa o arquivo atualixado (exe) mas nao substitui o original vou deixar o SRC em baixo para dar uma analizada eu quero que quando ele baixa a versao att ele substitui o outro mas n consegui se poder ajudar eu vou agradecer muito

Imports System.Net
Imports System.IO

Public Class Update

    Public WithEvents Client As New WebClient
    Public Dir As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\BugRAT[ATTS]\"

    Private Sub btn_Verificar_Click(sender As Object, e As EventArgs) Handles btn_Verificar.Click
        Try
            Dim PegarVersao As String = Client.DownloadString("https://docs.google.com/uc?authuser=0&id=1JQPbu0hF4Q9LDEAOCKcMIW6nBybQWT7O&export=download")
            Dim VersaoAtual As String = Application.ProductVersion
            If PegarVersao.Contains(VersaoAtual) Then
                Label2.Text = "BugRAT Atualizado"
                Timer1.Interval = 3000 'ms
                Timer1.Start()
                My.Computer.Audio.Stop()
            Else
                If MsgBox("Nova versão disponível, deseja fazer o download?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                    If File.Exists(Dir & "BugRAT.exe") Then
                        File.Delete(Dir & "BugRAT.exe")
                        ProgressBar1.Visible = True
                        Client = New WebClient
                        Client.DownloadFileAsync(New Uri("https://docs.google.com/uc?authuser=0&id=1cJS8lYgW2VMbJY56ZRhEimByJkIIdjnuW2VMbJY56ZRhEimByJkIIdjnu&export=download"), Dir & "BugRAT.exe")
                    Else
                        ProgressBar1.Visible = True
                        Client = New WebClient
                        Client.DownloadFileAsync(New Uri("https://docs.google.com/uc?authuser=0&id=1cJS8lYgW2VMbJY56ZRhEimByJkIIdjnuW2VMbJY56ZRhEimByJkIIdjnu&export=download"), Dir & "BugRAT.exe")
                    End If
                End If
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub DownloadCompleto(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles Client.DownloadFileCompleted
        Label2.Text = "Download completo"
        Button1.Visible = True
        ProgressBar1.Visible = False
        btn_Verificar.Visible = False
    End Sub

    Private Sub DownloadProgresso(sender As Object, e As DownloadProgressChangedEventArgs) Handles Client.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
        Label2.Text = "Baixando nova versão..."
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Process.Start(Dir & "BugRAT.exe")
        Close()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Login.Show()
        Me.Hide()
    End Sub

    Private Sub Update_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        My.Computer.Audio.Play(My.Resources.Lil_Xan___Betrayed, AudioPlayMode.BackgroundLoop)
    End Sub
End Class

Answer 1

Bom dia.

Como assim ele fica com os dois arquivos?

Ele ao menos renomeia o atual?

---

MARIANO1776

Answer 2

Este executável "BugRAT.exe" é o arquivo que está sendo executado?

Caso sim, aí está o problema, ele não vai deixar você apagar como está fazendo. Você deve renomeá-lo para depois baixar a nova versão.

Sugiro que você crie um padrão, por exemplo trocar o "exe" por "old" e nesta mesma rotina de update você exclua o "old", caso exista.

Espero ter ajudado.

Answer 3

obrigado eu ja estou trabalhando em um novo update onde o programa update vai ser executado dai quando ele baixar a versao att dai ele automaticamente executa o outro programa