Загрузка файла VB .exe

Я создаю проект в VB, у него есть загрузчик файлов, он отлично работает с такими файлами, как .txt или изображениями, но когда я пытаюсь загрузить .exe, .exe превращается в поврежденный файл, я имею в виду, программа загружает только 1 Кб файла и его невозможно выполнить.

Я использую этот код:

My.Computer.Network.DownloadFile(
    "http://www.web.domain/Archive.exe",
    "C:\Archive.exe")

Я работаю в версии 2013 VS.


download file vb.net exe basic
person Moustached Monkey    schedule 26.09.2014    source источник
comment
Большинство веб-серверов препятствуют загрузке EXE-файлов (через http) по многим причинам. Я думаю, что DownloadFile всегда сначала создает файл размером 1 КБ, чтобы убедиться, что вы можете писать в запрошенное место. У вас есть контроль над веб-сервером?   -  person Steve    schedule 30.09.2014

Ответы (1)


arrow_upward
1
arrow_downward

УРА!!! Я нашел решение:

Вот оно ^^. Спасибо за ответы.

Private Sub download_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles     Download.Click
    Download.Enabled = False
    httpclient = New WebClient
    AddHandler httpclient.DownloadFileCompleted, AddressOf Downloaded

    httpclient.DownloadFileAsync(New Uri("https://www.dropbox.com/s/2ch4prhn063hmxs/vanilla.exe?dl=1"), ("C:\BarberLand\downloads\Vanilla\vanilla.exe"))
End Sub

Private Sub dpc(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient.DownloadProgressChanged
    porcentaje.Text = e.ProgressPercentage
End Sub

Private Sub Downloaded()
    'Comprueba si el fichero se ha descargado completamente.
    If System.IO.File.Exists("C:\BarberLand\downloads\Vanilla\vanilla.exe") = True Then

        Process.Start("C:\BarberLand\downloads\Vanilla\vanilla.exe")
        Me.Close()
    Else
        MsgBox("El fichero no existe, pruebe con otra versión o si piensa que es un error, contácte con el administrador", 64, "Open")
    End If

End Sub
person Moustached Monkey    schedule 01.10.2014