Update funktion

[SUNZ]

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?

[Prototyp.Ger]

Hat VB2008 nicht eine Update funktion intigriert xD

[big earl]

Hier, eine kleine offline Version von mir

http://rapidshare.com/files/247355554/UpdateChecker.rar

btw. ich hab den Download wegelassen, da es meist als Webdownloader erkannt wird
müsse das schon per Winsock machen
( kann nacher auch ma ein Beispiel machen )