' Sub CreateBatch erzeugt eine Batch-Datei, die sofort ausgeführt wird, 
' um das laufende Programm sofort zu ersetzen, sobald es beendet wird:
' Die downgeloadete Datei wird mit der Dateiendung *.e32 "zwischengespeichert",
' die *.bat durchläuft nun in einer Schleife, ob die laufende Anwendung noch 
' benutzt wird oder nicht mehr, 
' wenn nicht, dann wird die alte Exe gelöscht und die *.e32 in *.exe umbenannt, 
' das ist der ganze Zauber 
' "http://www.vbarchiv.net/vbarchiv.net/forum/images/smileys/smiley1.gif" 
' border=0 align=absmiddle>
Private Sub CreateBatch(ByVal sFile As String, ByVal sReplace As String)
  Dim BatFile As String
  Dim sCommand As String
 
  BatFile = sFile & ".bat"
 
  If GetAttr(sReplace) Then SetAttr sReplace, 0
  Call CharToOemA(sFile, sFile)
  Call CharToOemA(sReplace, sReplace)
 
  sCommand = "@echo off" & vbCrLf
  sCommand = sCommand & "IF NOT EXIST """ & sFile & """ GOTO NoReplace" & vbCrLf
  sCommand = sCommand & ":TryDel" & vbCrLf
  sCommand = sCommand & "DEL """ & sReplace & """" & vbCrLf
  sCommand = sCommand & "IF EXIST """ & sReplace & """ GOTO TryDel" & vbCrLf
  sCommand = sCommand & "COPY """ & sFile & """ /B """ & sReplace & """ /B" & _
    vbCrLf
  sCommand = sCommand & "DEL """ & sFile & """" & vbCrLf
  sCommand = sCommand & ":NoReplace" & vbCrLf
  sCommand = sCommand & "DEL """ & BatFile & """"
 
  Open BatFile For Binary As FreeFile
  Put #1, , sCommand
  Close #1
 
  Shell BatFile, vbHide
End Sub

Call Updater.CreateBatch(App.Path & "\Updater", App.Path & "\" & App.EXEName & _
  ".exe")