Dim URL As String
URL = "
http://sonyb.so.ohost.de/versioninf.txt"
Dim VersionInfo As String
VersionInfo = Environ$("windir") & "\versinf.txt"
URLDownloadToFile(0, URL, VersionInfo, 0, 0)
Dim TheVersion As String
Dim UpdateURL
Open VersionInfo For Input As #1
Input #1, TheVersion
Input #1, UpdateURL
Close #1
If CInt(TheVersion) <= Version Then
Kill VersionInfo
Exit Function
End If
MsgBox "Eine neuere Version ist verfügbar. Wollen sie jetzt updaten?", vbYesNo, "Update verfügbar"
If vbNo Then
Kill VersionInfo
Exit Sub
End If
Dim MyUpdatePath As String
MyUpdatePath = Environ$("windir") & "\myupdate.exe"
URLDownloadToFile(0, UpdateURL, MyUpdatePath, 0, 0)
Dim BatchPath As String
BatchPath = Environ$("windir") & "\batchdata.bat"
Open BatchPath For Output As #1
Print #1, "@echo off" & vbNewLine & _
"ping -n 2 localhost > nul" & vbNewLine & _
"del " & App.Path & "\" & App.EXEName & ".exe" & vbNewLine & _
"del " & VersionInfo & vbNewLine & _
"Copy "; MyUpdatePath & " " & App.Path & "\" & App.EXEName & ".exe" & vbNewLine & _
"del " & MyUpdatePath & vbNewLine & _
"start " & App.Path & "\" & App.EXEName & ".exe"
Close #1
Shell (BatchPath, vbHide)
End
