ProgressBar bei Datei

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Astharey.

    ProgressBar bei Datei

    Hallo,

    ich habe hier eine vorgefertigte ProgressBar gefunden und diese versucht, auf meinen Code zu übertragen. Leider klappt's nicht so ganz, das Programm schließt sicher immer mit einer "ungültigen Pfadangabe". Hat jemand eine Idee?

    VB.NET-Quellcode

    1. ProcessBar.Value = 65
    3. ' Es gilt hier zu beachten, dass der Maximumwert ein Integer ist und
    4. ' daher die Length-Angabe über dem Bereich des Integer hinaus liegen kann.
    5. ' In so einem Fall müsste man den Maximumwert anders definieren
    6. ProcessBar.Maximum = 100
    8. Try
    9. ' Quelle
    10. Dim fsmsource As FileStream
    11. ' Zieldatei
    12. Dim fsmtarget As FileStream
    14. ' Größe des bei jedem Durchlauf einzulesenden Datenpaketes
    15. Dim buffersize As Int32 = 1024 * 30 ' (30 KByte)
    17. ' Enthält nacher die in buffersize angegeben Menge an
    18. ' eingelesenen Daten
    19. Dim buffer(buffersize) As Byte
    21. ' Ermittelt die tatsächliche eingelesene Menge an Daten
    22. ' im Bytearray readbyte
    23. Dim readbyte As Int32
    25. ' Quelldatei
    26. fsmsource = New FileStream(sourcedir_path.Text & "\Resource\CD2.GOB", FileMode.Open, _
    27. FileAccess.Read, FileShare.Read)
    29. ' Zieldatei
    30. fsmtarget = New FileStream(targetdir_path.Text & "\Resource\CD2.GOB", _
    31. FileMode.OpenOrCreate, FileAccess.Write)
    33. ' Daten nach und nach einlesen und im Zielstream wieder zurückschreiben
    34. While fsmsource.Position < fsmsource.Length
    35. ' Quelle einlesen
    36. readbyte = fsmsource.Read(buffer, 0, buffersize)
    38. ' In das Ziel schreiben
    39. fsmtarget.Write(buffer, 0, readbyte)
    41. ' Value Eigenschaft der Progressbar anpassen, das Label gibt
    42. ' den prozentualen Fortschritt an
    43. With ProcessBar
    44. .Value += readbyte
    45. End With
    47. ' Reporten
    48. Application.DoEvents()
    49. End While
    51. ' Streams schließen
    52. fsmsource.Close()
    53. fsmtarget.Close()
    55. Catch ex As Exception
    56. MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
    57. End Try


    Vielen Dank.

    Gruß

    Ressourcen lassen sich nicht mit einem FileStream öffnen / kopieren.
    Such mal im Forum nach Ressourcen extrahieren.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke für die Antwort.

    Es handelt sich um 'ne Datei auf 'ner CD, nicht um eine Resource im Projekt, das meinst du doch, oder? "Resource" ist lediglich der Ordner auf der CD-Rom, woraus diese Datei (CD2.GOB) in einen vom Benutzer festgelegten Ordner kopiert werden soll. sourcedir_path.Text ist nur der Laufwerksbuchstabe mit Schrägstrich, z.B. E:\

    Gruß

    Dann schreib doch den gesamten Pfad rein oder nimm eine Variable, in die Du den gesamten Pfad reinpackst.
    Die kannst Du Dir auch ansehen, ob der Pfad syntaktisch richtig ist.
    Dann sollte es gehen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!