DasTem, если я правильно понял, ты хочешь, что бы твоя программа читала твой txt файл, и если там написано новая версия программы, например "v 1.3", что бы выбивало окно с обновлением?
Тут все легко. Вот код:
Code
Dim Tek As String, Ver As String
' В двох переменных будут храниться информация о версия. ТЕК - текущая версия, VER - Новая
Private Sub Form_Load()
f = FreeFile
Open App.Path & "\version.txt" For Input As #f
' открой txt файл в папке программы, где записана текущая версия проги, типа "v 1.2"
Input #f, Tek
' Это все сохраняется в переменную TEk
Close #f
Ver = Inet1.OpenURL("http:\\bestet.kiev.ua", icString)
' В другой переменной должна быть версия новой программы, которая написана на серваке! Вместо мого Bestet пропиши свой путь к txt
If Ver <> Tek Then
' если версии разные, значит выскакивает сообщение. Лучше сделай, что бы форма выскакивала, будет красивее.
MsgBox "Вышло новое обновление программы!"
End If
End Sub
