Скачать и заменить файл (обновление приложения)

@6stprod · Регистрация: 07.02.2013

Студворк — интернет-сервис помощи студентам

Есть код:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        CheckForUpdates()
End Sub
 
 Public Sub CheckForUpdates()
 
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://127.0.0.1/launcher/update.txt") 
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
        Dim newestversion As String = sr.ReadToEnd
        Dim currentversion As String = Application.ProductVersion
        If newestversion.Contains(currentversion) Then
            MsgBox("Вы используете свежую версию программы!.")
        Else
            MsgBox("Доступна новая версия. Скачивание начнется автоматически.")
            My.Computer.Network.DownloadFile("http://127.0.0.1/launcher/upd/launcher.exe", "D:\World of Warcraft\Launcher.exe") 
            My.Computer.Network.DownloadFile("http://127.0.0.1/launcher/upd/MySql.Data.dll", "D:\World of Warcraft\MySql.Data.dll")
            MsgBox("Все файлы программы успешно загружены в дирректорию установленной игры!.")
        End If
 
    End Sub

Проверяет версию программы, если она не совпадает то качает другую..то есть саму себя.

Но - при скачке самого себя выдает ошибку что в той папке она уже имеется, как дописать замену файла а старый удалить?
И такой еще факт - программа то запущена, и удалить она себя не сможет...подскажите как извернуться в этом случае

@foxkid · 03.07.2015, 17:11

написать отдельную программу - можно даже консольную. и в ней уже закачивать файлы

@k13 · 03.07.2015, 17:26

https://msdn.microsoft.com/ru-... s.90).aspx

@6stprod · 03.07.2015, 18:48 **[ТС]**

foxkid, создал новое приложение,

при нажатии на кнопку проверяется версия, если версия новая то приложение запускает приложение-обновление и само закрывается..а приложение-обновление скачивает файлы, после выдает сообщение что все впорядке и закрываясь открывает то что скачало

только вот как удалить файлы, которые существуют?

VB.NET
1
2
3
4
5
        My.Computer.Network.DownloadFile("http://127.0.0.1/launcher/upd/launcher.exe", "D:\World of Warcraft\Launcher.exe")
        My.Computer.Network.DownloadFile("http://127.0.0.1/launcher/upd/MySql.Data.dll", "D:\World of Warcraft\MySql.Data.dll")
        MsgBox("Все файлы программы успешно загружены в дирректорию установленной игры!.")
        Process.Start(My.Application.Info.DirectoryPath.ToString & "\Launcher.exe")
        Application.Exit()

@edward_freedom · 03.07.2015, 18:52

6stprod, https://msdn.microsoft.com/ru-... s.90).aspx

@6stprod · 03.07.2015, 19:07 **[ТС]**

Сделал так..

Проверяем есть ли файл, если есть удаляем и скачиваем...после выдаем окно с завершением и открываем обновленную программу

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
        If IO.File.Exists(My.Application.Info.DirectoryPath.ToString & "\Launcher.exe") Then
            My.Computer.FileSystem.DeleteFile(My.Application.Info.DirectoryPath.ToString & "\Launcher.exe")
        End If
        My.Computer.Network.DownloadFile("http://127.0.0.1/launcher/upd/launcher.exe", My.Application.Info.DirectoryPath.ToString & "\Launcher.exe")
 
        
        If IO.File.Exists(My.Application.Info.DirectoryPath.ToString & "\MySql.Data.dll") Then
            My.Computer.FileSystem.DeleteFile(My.Application.Info.DirectoryPath.ToString & "\MySql.Data.dll")
        End If
        My.Computer.Network.DownloadFile("http://127.0.0.1/launcher/upd/MySql.Data.dll", My.Application.Info.DirectoryPath.ToString & "\MySql.Data.dll")
 
        MsgBox("Все файлы программы успешно загружены в дирректорию установленной игры!.")
        Process.Start(My.Application.Info.DirectoryPath.ToString & "\Launcher.exe")
        Application.Exit()

Все работает

@GSXL · 03.07.2015, 22:55

А вот еще одна очень полезная ссылка где есть не один рабочий необходимый для Вас пример

@6stprod · 03.07.2015, 23:27 **[ТС]**

GSXL, за ссылку благодарен! Нашел для себя множество полезной информации! Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@foxkid 2 / 2 / 2 Регистрация: 22.04.2014 Сообщений: 18
	03.07.2015, 17:11
	написать отдельную программу - можно даже консольную. и в ней уже закачивать файлы 0

@k13 179 / 179 / 52 Регистрация: 11.03.2014 Сообщений: 200
	03.07.2015, 17:26
	https://msdn.microsoft.com/ru-... s.90).aspx 0

@edward_freedom 1569 / 1448 / 303 Регистрация: 01.10.2011 Сообщений: 2,636
	03.07.2015, 18:52
	6stprod, https://msdn.microsoft.com/ru-... s.90).aspx 0

@GSXL 172 / 180 / 27 Регистрация: 26.11.2011 Сообщений: 386 Записей в блоге: 1
	03.07.2015, 22:55
	А вот еще одна очень полезная ссылка где есть не один рабочий необходимый для Вас пример 2

@6stprod http://jokenews.ru/ 10 / 10 / 7 Регистрация: 07.02.2013 Сообщений: 179
	03.07.2015, 23:27 [ТС]
	GSXL, за ссылку благодарен! Нашел для себя множество полезной информации! Спасибо! 0