@echo off
:TryDel
Del "Merlin.exe"
IF EXIST "Merlin.exe" GOTO TryDel
DEL "Merlin.exe"
COPY "Merlin.exe.e32" /B "Merlin.exe" /B
DEL "Merlin.exe.e32"

Call download(Updateurl)
        MsgBox("Download beendet. Bitte starten Sie die Applikation neu.", , _
          sprache.Applikationsname)
        Shell(Application.ExecutablePath & ".bat", AppWinStyle.Hide)
        End
    End Sub

   Public Sub download(ByVal Url As String)
        Dim webreq As HttpWebRequest
        Dim webresp As HttpWebResponse
        Dim reader As BinaryReader
        Dim writer As BinaryWriter
        Dim stream As FileStream
        Dim buffer() As Byte = New Byte(1024) {}
        Dim bytesread As Integer
 
        'Fortschritt 0%
        pro_download.Value = 0
 
        Try
            webreq = HttpWebRequest.Create(Url)
            webresp = webreq.GetResponse
            pro_download.Maximum = webresp.ContentLength
 
            stream = New FileStream(Application.ExecutablePath & ".e32", _
              FileMode.OpenOrCreate)
            reader = New BinaryReader(webresp.GetResponseStream)
            writer = New BinaryWriter(stream)
 
            'Download
            Do
                bytesread = reader.Read(buffer, 0, 1024)
                writer.Write(buffer, 0, bytesread)
                pro_download.Value += bytesread
                pro_download.Update()
            Loop Until bytesread = 0
            'schließen
            writer.Close()
            reader.Close()
            stream.Close()
        Catch ex As Exception
            MsgBox(sprache.Update_fehler, , sprache.Applikationsname)
        End Try
    End Sub