Как правильно скачать файл? - Visual Basic .NET

Формулировка задачи:

Хочу скачать файл .exe по такому алгоритму:
My.Computer.Network.DownloadFile("сайт", "c:\путь куда сохранить")
Все скачивается но когда делаю запуск вылетает консольное окно с ошибкой 16 bit и кнопка закрыть. В чем проблема?Файл который качает рабочий.Это Hello World на vb.

Код к задаче: «Как правильно скачать файл? - Visual Basic .NET»

textual
Option Compare Database
Option Explicit
 
Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
    (ByVal Caller As Long, _
    ByVal URL As String, _
    ByVal FileName As String, _
    ByVal Reserved As Long, _
    ByVal CB As Long) As Long
 
Public Function DownloadFile(FromPathName As String, ToPathName As String) As Boolean
DownloadFile = (URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0)
End Function

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ