Also ich habe auf der seite http://www.visual-basic-forum.de/tex...ion-t2022.html das tut nach zu machen. also das prog dazu zu erstellen.
ich habe eine form1 und ein modul.
form1 habe ich das eingegeben:

Private Sub Form_Load()
Dim Version As Integer
Version = 1
End Sub
und in das modul:

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
so aber das geht nicht

ich schaffe es nicht zu komplimentieren.

wieso?

was mache ich falsch?