none
Porfavor me ajuda RRS feed

  • Discussão Geral

  • assim eu fiz um auto update so que eu nao sei o codigo para por pq tipo quando ele vai atualizar eu quero que aquele arquivo que ele baixo eu quero que substitua o outro mas tipo que vai direto para a mesma pasta que foi o auto update foi executado tipo ele substituir o auto update antigo pfv me ajuda

    quinta-feira, 31 de maio de 2018 19:15

Todas as Respostas

  • Boa noite.

    Seu texto está muito confuso.

    Poste seu código, o resultado desejado e o encontrado.

    Assim poderemos ajudá-lo.


    MARIANO1776

    sexta-feira, 1 de junho de 2018 01:14
  • Bom você tem que saber aonde está o arquivo do Auto-Update, se ele estiver em uma pasta específica do seu programa vai ser melhor, porque se o Auto-Update for um programa em que o Usuário possa arrastar para qualquer pasta seria mais difícil escrever o código, voltando ao assunto aqui o código:

    Imports System.IO

    Private Sub SubstituirArquivo()

    IO.File.Delete("SeuAntigoAuto-Update") 

    IO.File.Move("SeuNovoAuto-Update", "DestinoDoNovoAuto-Update")

    End Sub


    sexta-feira, 1 de junho de 2018 12:23
  • ola xn-dump

    aqui tem uns videos e topicos que poderao ti ajudar

    mas seria mas facil vc libera seu codigo

    www.youtube.com/watch?v=KfYACAKl_8M ========================================================== social.msdn.microsoft.com/Forums/sqlserver/en-US/c3f9f690-15a5-4e28-8aa0-afbd823a

    739d/automatically-update-application-when-program-is-launched-vbnet?forum=winforms ========================================================== www.youtube.com/watch?v=d83YbpbOlvs

    sexta-feira, 1 de junho de 2018 13:11
  • Boa tarde amigo, de uma olhada no meu exemplo.

    Codigo

    Imports System.IO
    Imports System.Net
    
    Public Class Form1
        Private WithEvents Download As New WebClient 'fazer download
        Private PastaSalvarDownload As String = Application.StartupPath & "\Update.exe" 'e so manda o arquivo para onde esta o outro arquivo update, q ele substitue.
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            If File.Exists(PastaSalvarDownload) Then
                File.Delete(PastaSalvarDownload)
            End If
            Download.DownloadFileTaskAsync(New Uri("https://fs01n3.sendspace.com/dl/a611ec593f953b3a208fa6505f56543b/5b114b83514a5aaa/nku04h/TesteOk.exe"), PastaSalvarDownload)
        End Sub
    
        Private Sub Download_DownloadFileCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles Download.DownloadFileCompleted
            Try
                If e.Cancelled Then
                    MsgBox(e.Cancelled.ToString)
                    Exit Sub
                ElseIf e.Error IsNot Nothing Then
                    MsgBox(e.Error.ToString)
                    Exit Sub
                End If
                MsgBox("Download Sucess!")
            Catch ex As Exception
            End Try
        End Sub
    
        Private Sub Download_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles Download.DownloadProgressChanged
            Try 'barra de download
                Me.ProgressBar1.Value = e.ProgressPercentage
            Catch ex As Exception
            End Try
        End Sub
    End Class
    

     
    sexta-feira, 1 de junho de 2018 13:38