Dateien Downloaden, Entpacken und dann zip Löschen?!

  • VB.NET
  • .NET (FX) 4.0

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Panics.

    Dateien Downloaden, Entpacken und dann zip Löschen?!

    Hallo zusammen

    Seit geraumer Zeit suche ich hier im Forum immer mal wieder wenn ich Probleme beim rumtüfteln in vb.NET habe...
    Jetzt stehe ich vor einem Lustigen Problem.

    Ich habe mit einen Freund eine Wette am laufen das ich so einen WoW P-Server Launcher nicht zusammen gebastelt bekomme womit ich aber so gut wie fertig bin.
    Ich lasse zip-Dateien per WebClient Asynchron downloaden um eine "Progressbar" zu füllen und einen Status zu bekommen.
    Nachdem alle Dateien gedownloaded wurden werden diese durch einen BackgroundWorker über die Ionic.zip.dll entpackt um auch dort einen Status zu erhalten und sollten im Anschluss eigentlich gelöscht werden...

    Leider bricht das ganze an der Stelle ab und erzählt mir das die zip-Dateien von einen anderen Prozess genutzt werden...

    Der Dwonload läuft über folgenden Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub w_DownloadFileCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles w.DownloadFileCompleted
    3. sw.Stop()
    5. ProgBar.Value = 0
    7. ListBox2.Items.Clear()
    9. 'MessageBox.Show(e.ToString)
    11. Dim grade As New IO.DirectoryInfo(My.Settings.WoW_Pfad & "\\")
    12. Dim diar As IO.FileInfo() = grade.GetFiles()
    13. Dim dra As IO.FileInfo
    14. Dim Counter As Integer = 0
    15. For Each dra In diar
    16. ListBox2.Items.Add(dra)
    17. Next
    19. For i As Integer = 0 To ListBox1.Items.Count - 1
    20. If Len(Dir(My.Settings.WoW_Pfad & "\\" & ListBox1.Items.Item(i))) <> 0 Then
    21. Counter = Counter + 1
    22. If Counter = ListBox1.Items.Count Then
    24. BackgroundWorker1.RunWorkerAsync()
    25. TextBox1.Text = ""
    26. Label7.Text = "Status - Download - Abgeschlossen"
    27. ProgBar.Value = 100
    28. End If
    29. Else
    30. Schritt = Schritt + 1
    31. Counter = Counter + 1
    32. sw.Start()
    33. w.DownloadFileAsync(New Uri("http://**.**.**.**/downloads/WoW/3.3.5a/" & ListBox1.Items.Item(i)), My.Settings.WoW_Pfad & "\\" & ListBox1.Items.Item(i))
    34. TextBox1.Text = ListBox1.Items.Item(i)
    35. Exit For
    36. End If
    37. Next
    39. End Sub
    41. Private Sub w_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles w.DownloadProgressChanged
    42. sw.Stop()
    44. Speed = Math.Round((e.BytesReceived - zm) / 1024 / (sw.ElapsedMilliseconds / 1000))
    46. ProgBar.Value = e.ProgressPercentage
    48. Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
    49. Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
    50. Dim percentage As Double = bytesIn / totalBytes * 100
    51. Dim down As Integer = bytesIn / 1048576
    52. Dim total As Integer = totalBytes / 1048576
    54. DownStatus = Integer.Parse(Math.Truncate(percentage))
    56. Trigger = 475 / 100 * percentage
    58. Status = DownStatus
    59. Label7.Visible = True
    61. Progress.Width = Trigger
    63. Label7.Text = "Downloade - Datei: " & Schritt & " von " & Schritte & " - " & down.ToString("N0") & "MB" & "/" & total & "MB" & " - " & Status & "%" & " - Datei: " & TextBox1.Text
    65. zm = e.BytesReceived
    66. sw.Restart()
    68. End Sub


    Das Entpacken danach über diesen Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Property CurrentCount As Integer
    2. Private Property TotalCount As Integer = 1
    4. Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
    5. ProgBar.Value = e.ProgressPercentage
    6. Trigger = 475 / 100 * ProgBar.Value
    7. Progress.Width = Trigger
    9. Label7.Text = "Entpacke - Datei: " & Datei & " von " & DateienTotal & " - " & ProgBar.Value & "%"
    11. End Sub
    13. Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    14. Timer1.Start()
    15. BackgroundWorker1.CancelAsync()
    16. End Sub
    18. Private Function SearchAndAddToListWithFilter(ByVal path As String, ByVal filters As String(), ByVal searchSubFolders As Boolean) As List(Of IO.FileInfo)
    19. If Not IO.Directory.Exists(path) Then
    20. Throw New Exception("Path not found")
    21. End If
    23. Dim searchOptions As IO.SearchOption
    24. If searchSubFolders Then
    25. searchOptions = IO.SearchOption.AllDirectories
    26. Else
    27. searchOptions = IO.SearchOption.TopDirectoryOnly
    28. End If
    30. Return filters.SelectMany(Function(filter) New IO.DirectoryInfo(path).GetFiles(filter, searchOptions)).ToList
    31. End Function
    33. Private Delegate Sub SetStatusTextInvoker(ByVal Text As String)
    34. Private Sub SetStatusText(ByVal Text As String)
    35. If Me.InvokeRequired Then
    36. Me.Invoke(New SetStatusTextInvoker(AddressOf SetStatusText), Text)
    37. Else
    38. Label7.Text = Text
    39. End If
    40. End Sub
    42. Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    44. Dim TotalSize As Long
    45. Dim ZipToUnpack As String = My.Settings.WoW_Pfad & "\\" & ListBox3.Items.Item(ListBox3.Items.Count - 1).ToString
    46. Dim extractDir As String = My.Settings.WoW_Pfad & "\\"
    47. Try
    48. Using zip As ZipFile = ZipFile.Read(ZipToUnpack)
    49. AddHandler (zip.ExtractProgress), New EventHandler(Of ExtractProgressEventArgs)(AddressOf Zip_ExtractProgress)
    51. For Each Entry As ZipEntry In zip.Entries
    52. DateienTotal = DateienTotal + 1
    53. TotalSize += Entry.UncompressedSize
    54. Next
    55. For Each Entry As ZipEntry In zip.Entries
    56. Datei = Datei + 1
    57. Entry.Extract(extractDir, Ionic.Zip.ExtractExistingFileAction.OverwriteSilently)
    58. Next
    59. End Using
    60. Catch EX As Exception
    61. MessageBox.Show(EX.Message)
    62. End Try
    63. End Sub
    65. Private Sub Zip_ExtractProgress(ByVal sender As Object, ByVal e As ExtractProgressEventArgs)
    66. If BackgroundWorker1.CancellationPending Then
    67. e.Cancel = True
    68. End If
    70. Select Case e.EventType
    71. Case ZipProgressEventType.Extracting_EntryBytesWritten
    73. Dim Entry As Integer
    74. Dim CurrentCount As Integer = Entry
    76. BackgroundWorker1.ReportProgress(CInt(Math.Truncate(100 * (e.BytesTransferred / e.TotalBytesToTransfer))))
    77. If _setCancel Then
    78. ' this Boolean would be set in a event handler for the cancel button
    79. e.Cancel = True
    80. End If
    81. End Select
    82. End Sub


    Und das Löschen sollte dann über diesen Code laufen:

    Timer1:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    2. BackgroundWorker1.CancelAsync()
    3. DeleteUnWanted()
    4. Timer1.Stop()
    5. End Sub


    DeleteUnWanted():
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub DeleteUnWanted()
    2. BackgroundWorker1.CancelAsync()
    3. Progress.Width = 475
    4. Label7.Text = "Status - Entpacken: Abgeschlossen - WoW Fertig Installiert"
    6. _setCancel = True
    7. Dim FileToDelete As String
    8. If Len(Dir(My.Settings.WoW_Pfad & "\wow.exe")) <> 0 Then
    9. For i As Integer = 0 To ListBox3.Items.Count - 1
    10. FileToDelete = My.Settings.WoW_Pfad & "\\" & ListBox3.Items.Item(i)
    11. If System.IO.File.Exists(FileToDelete) = True Then
    12. System.IO.File.Delete(FileToDelete)
    13. End If
    14. Next
    15. End If
    16. Dim result As Integer = MessageBox.Show("Das Spiel wurde nun Erfolgreich gedownloaded und Installiert." _
    17. & vbNewLine & "Soll das Spiel nun gestartet werden?", "Soll World of Warcraft gestartet werden?", _
    18. MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    20. If result = DialogResult.Yes Then
    21. Progress.Width = 475
    22. Process.Start(My.Settings.WoW_Pfad & "\wow.exe")
    23. Application.Exit()
    24. ElseIf result = DialogResult.No Then
    25. Play.Enabled = True
    26. Label7.Visible = False
    27. End If
    28. End Sub


    Tut mir bitte einen gefallen und Steinigt mich nicht für den Code ich bin leider nicht der beste Programmierer versuche aber mein Möglichstes...
    Ich habe keine Ahnung warum die Dateien nicht gelöscht werden können... Ich hoffe ihr könnt mir helfen.

    Ein dickes Danke schon einmal im vor raus!

    EDIT://
    Ich habe hier (für das Forum) alle Backslashs (Ich weiß nicht was die Mehrzahl ist O.o) verdoppelt da das Syntax highlighting sonst
    einen Fehler ergibt im Code funktioniert das bislang aber Problemlos.

    Habt ihr eine Ahnung was ich Falsch mache wo das ganze mir die zip-Dateien sperrt?
    Ich denke das es an dem Thread des Backgroundworkers liegt bin mir aber nicht wirklich sicher zumal ich den (glaub ich) 3x den befehl zum schließen gebe um ganz sicher zu gehen...
    Ich habe gerade auch einen Test mit zip-Dateien gemacht die insgesammt 30MB groß sind und da klappt das ganze problemlos... Wie kann das sein?

    Ich Arbeite mit Visual Studio 2013 Ultimate das habe ich noch vergessen zu erwähnen.

    Gruß
    Panics

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Panics“ ()

Facebook
Telefonspende