Variable falsch gesetzt ? System.ArgumentNullExpetion in simpler Anfänger Form VB2013 Studio Express

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Variable falsch gesetzt ? System.ArgumentNullExpetion in simpler Anfänger Form VB2013 Studio Express

    Hallo, ich bin absoluter Anfänger, also wundert euch bitte nicht :)

    Ich will mit diesem Programm erst mal simple Files Zählen und die Zahl dann ausgeben (später dann kopieren, es soll ein Kopierprogramm werden). Da das Programm bei vielen Files stockt und nicht mehr reagiert (eine Zeit lang nur) , dachte ich an einen Backgroundworker.

    Wie gesagt das ist mein erstes Programm..

    Ich habe wohl die Variable SourcePath falsch definiert. Diese ist bei Zeile 61 gleich Null. Allerdings ist sie bei Zeile 24 noch schön das was ich eingebe also genau der Pfad sagen wir "C:/Test". Habs mit dem Haltebefehl durch den Debugger laufen lassen und da sehe ich ja die Variable. Irgendwie ist SourcePath also auf Null gesetzt worden durch den Aufruf des Backgrounworkers..Warum? Und wie behebe ich das?

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    4. 'Set Variables
    6. Dim Files As Integer = 0
    7. Dim SourcePath As String
    9. 'End Button
    11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    12. Close()
    13. End Sub
    15. 'Choose Source
    17. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    18. Dim ShowFolders As FolderBrowserDialog = New FolderBrowserDialog
    19. ShowFolders.RootFolder = Environment.SpecialFolder.MyComputer
    21. If ShowFolders.ShowDialog = Windows.Forms.DialogResult.OK Then
    22. Dim SourcePath As String = ShowFolders.SelectedPath
    24. TextBox1.Text = SourcePath
    26. End If
    28. BackgroundWorker1.RunWorkerAsync()
    29. Label3.Text = Files
    31. End Sub
    33. 'Choose Destination
    35. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    36. Dim ShowFolders1 As FolderBrowserDialog = New FolderBrowserDialog
    37. ShowFolders1.RootFolder = Environment.SpecialFolder.MyComputer
    39. If ShowFolders1.ShowDialog = Windows.Forms.DialogResult.OK Then
    40. Dim DestinationPath As String = ShowFolders1.SelectedPath
    41. TextBox2.Text = DestinationPath
    43. End If
    44. End Sub
    46. 'Copy
    48. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    49. If TextBox1.Text <> Nothing And TextBox2.Text <> Nothing Then
    50. My.Computer.FileSystem.CopyDirectory(TextBox1.Text, TextBox2.Text, showUI:=FileIO.UIOption.AllDialogs)
    51. Else
    52. MessageBox.Show("No Source or Destination Path!")
    53. End If
    55. End Sub
    57. 'Count Files
    59. Private Sub Choice()
    61. Dim Files As Integer = My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*.*").Count
    63. End Sub
    65. 'Background Worker thta count files
    67. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    68. Call Choice()
    69. End Sub
    70. End Class

    Fehler:
    In System.ArgumentNullException ist eine Ausnahme vom Typ "mscorlib.dll" aufgetreten, doch wurde diese im Benutzercode nicht verarbeitet.

    Zusätzliche Informationen: Der Wert darf nicht NULL sein.


    In dieser Zeile:

    VB.NET-Quellcode

    1. Dim Files As Integer = My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*.*").Count


    SourcePath Nothing String

    Willkommen im Forum. :thumbup:

    garack schrieb:

    Und wie behebe ich das?
    Indem Du keine neue Variable gleichen Namens deklarierst.
    Aus

    garack schrieb:

    VB.NET-Quellcode

    1. Dim Files As Integer = My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*.*").Count
    machst Du

    VB.NET-Quellcode

    1. Files = My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*.*").Count
    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!

    Seht schön! Das funktioniert. Allerdings möchte ich nun meine File Anzahl ausgeben durch Label3.Text = Files.

    Files wird auch korrekt berechnet wie ich im Debugg.Modus sehen kann in der backgroundworker Routine 'Choice' . Hier ist der Wert Files korrekt.

    Allerdings ist er die Variable Files ja nur lokal innerhalb der Sub 'Choice' gültig, wenn ich irgendwie Label3.Text = Files aufrufe dann ist files wieder null.

    Wie kann ich files aus dem Sub 'Choice' rausholen?

    innerhalb des subs kann ich files nicht anzeigen lassen da Mutlithreading aufgrund von OLE/COM Limitierung nicht mit UI/GUI Befehlen läuft.

    VB.NET-Quellcode

    1. ​Imports System.IO
    3. Public Class Form1
    4. 'Set Variables
    6. Dim Files As Integer = 0
    7. Dim SourcePath As String
    9. 'End Button
    11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    12. Close()
    13. End Sub
    15. 'Choose Source
    17. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    18. Label3.Text = Files
    20. Dim ShowFolders As FolderBrowserDialog = New FolderBrowserDialog
    22. ShowFolders.RootFolder = Environment.SpecialFolder.MyComputer
    24. If ShowFolders.ShowDialog = Windows.Forms.DialogResult.OK Then
    25. SourcePath = ShowFolders.SelectedPath
    27. TextBox1.Text = SourcePath
    29. End If
    31. BackgroundWorker1.RunWorkerAsync()
    33. End Sub
    35. 'Choose Destination
    37. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    38. Dim ShowFolders1 As FolderBrowserDialog = New FolderBrowserDialog
    39. ShowFolders1.RootFolder = Environment.SpecialFolder.MyComputer
    41. If ShowFolders1.ShowDialog = Windows.Forms.DialogResult.OK Then
    42. Dim DestinationPath As String = ShowFolders1.SelectedPath
    43. TextBox2.Text = DestinationPath
    45. End If
    46. End Sub
    48. 'Copy
    50. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    51. If TextBox1.Text <> Nothing And TextBox2.Text <> Nothing Then
    52. My.Computer.FileSystem.CopyDirectory(TextBox1.Text, TextBox2.Text, showUI:=FileIO.UIOption.AllDialogs)
    53. Else
    54. MessageBox.Show("No Source or Destination Path!")
    55. End If
    57. End Sub
    59. 'Count Files
    61. Private Sub Choice()
    63. Files = My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*.*").Count
    65. End Sub
    67. 'Background Worker that count files
    69. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    70. Call Choice()
    72. End Sub
    74. End Class

    garack schrieb:

    Allerdings ist er die Variable Files ja nur lokal innerhalb der Sub 'Choice' gültig
    Falsch - guck in deinen Code: Die Variable ist klassenweit gültig.

    Vlt. aktualisierst du das Label zu früh.
    Darfst du natürlich erst dann aktualisieren, wenn der Thread fertig ist - du verstehst was ich meine?

    EDR: Jou.

    garack schrieb:

    Wie kann ich files aus dem Sub 'Choice' rausholen?
    Haben wir doch gerade gemacht.
    Wenn Du den BackgroundWorker verwendest, kannst Du dessen Event RunWorkerCompleted für genau Deine Zwecke verwenden.
    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!

    Super das klappt auch...bedingt aber das liegt an was anderem: Mein PRG zählt nun die Files und schreibt sie in ein Label; zeigt sogar eine Progressbar an.

    Allerdings klappt das nur mit einer nicht so großen Anzahl an Files. Hab ein Directory mit 50k Files, da kommt dann ein Fehler in Zeile 88:

    In System.ArgumentOutOfRangeException ist eine Ausnahme vom Typ "System.Windows.Forms.dll" aufgetreten, doch wurde diese im Benutzercode nicht verarbeitet.

    Zusätzliche Informationen: Der Wert 49509 ist für Value ungültig. Value sollte zwischen 'minimum' und 'maximum' liegen.


    VB.NET-Quellcode

    1. ProgressBar1.Value = e.ProgressPercentage


    Ein weiterer Fehler kommt wenn ich auf Dokumkente zugreifen will in Zeile 70. Music, und Video geht, aber Eigene Bilder wird verweigert, wobei es diesen Ordner unter documents gar nicht gibt..

    n System.UnauthorizedAccessException ist eine Ausnahme vom Typ "mscorlib.dll" aufgetreten, doch wurde diese im Benutzercode nicht verarbeitet.

    Zusätzliche Informationen: Der Zugriff auf den Pfad "C:\Users\Oliver\Documents\Eigene Bilder" wurde verweigert.


    VB.NET-Quellcode

    1. FileCount = My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*.*").Count


    Hier der neue Code:

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    4. 'Set Variables
    6. Dim FileCount As Integer = 0
    7. Dim SourcePath As String
    9. 'End Button
    11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    12. Close()
    13. End Sub
    15. 'Choose Source
    17. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    18. Label3.Text = FileCount
    19. Dim ShowFolders As FolderBrowserDialog = New FolderBrowserDialog
    21. ShowFolders.RootFolder = Environment.SpecialFolder.MyComputer
    23. If ShowFolders.ShowDialog = Windows.Forms.DialogResult.OK Then
    24. SourcePath = ShowFolders.SelectedPath
    26. TextBox1.Text = SourcePath
    28. End If
    30. BackgroundWorker1.RunWorkerAsync()
    32. End Sub
    34. 'Choose Destination
    36. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    37. Dim ShowFolders1 As FolderBrowserDialog = New FolderBrowserDialog
    38. ShowFolders1.RootFolder = Environment.SpecialFolder.MyComputer
    40. If ShowFolders1.ShowDialog = Windows.Forms.DialogResult.OK Then
    41. Dim DestinationPath As String = ShowFolders1.SelectedPath
    42. TextBox2.Text = DestinationPath
    44. End If
    45. End Sub
    47. 'Copy
    49. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    50. If TextBox1.Text <> Nothing And TextBox2.Text <> Nothing Then
    51. My.Computer.FileSystem.CopyDirectory(TextBox1.Text, TextBox2.Text, showUI:=FileIO.UIOption.AllDialogs)
    52. Else
    53. MessageBox.Show("No Source or Destination Path!")
    54. End If
    56. End Sub
    58. 'Count Files
    60. Private Sub Choice()
    62. FileCount = My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*.*").Count
    64. End Sub
    66. 'Background Worker that count files via Call Choice
    68. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    70. Call Choice()
    72. BackgroundWorker1.ReportProgress(FileCount) 'Get Filecount to Progressbar1 via ReportProgress
    74. End Sub
    76. ' Define Progressbar1 as Backgroundworker1 in Percentage
    78. Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
    79. ProgressBar1.Value = e.ProgressPercentage
    80. End Sub
    82. ' If RunWorker is completed then Print Out FileCount
    84. Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    85. Label3.Text = FileCount
    86. End Sub
    87. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „garack“ ()

    @garack
    1. Wo kommt dier Wert 49509 her?
    2. Zugriff verweigert: Du hast nicht die erforderlichen Rechte, diesen Pfad einzusehen.
      Starte das Programm als Administrator (nicht fragen, sondern im Forum finden!), da hast Du Zugriff auf weitere Verzeichniss, auf alle jedoch nicht.
      Da musst Du Dir die Liste der interessierenden Verzeichnisse holen und das Auslesen dieser mit Try / Catch kapseln, wobei Du explizit diese Exception abfängst.
    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!

    Ok hatte mich vertippt, hier der aktuelle Code mit der korrekten Zeile des Fehlers:

    VB.NET-Quellcode

    1. ProgressBar1.Value = e.ProgressPercentage


    und ein Versuch mit Try/Catch der leider nicht funktioniert. (Bold und invers sollte der Abschnitt sein aber das Forum hat nur die Tags eingefügt..)

    Der Fehler mit zu hoher FileANzahl kommt auch schon mit nur 122 Files in MyDesktop:

    In System.ArgumentOutOfRangeException ist eine Ausnahme vom Typ "System.Windows.Forms.dll" aufgetreten, doch wurde diese im Benutzercode nicht verarbeitet.

    Zusätzliche Informationen: Der Wert 122 ist für Value ungültig. Value sollte zwischen 'minimum' und 'maximum' liegen.

    VB 2013 Studio Express wird als Admin gestartet. Das Problem ist das Verzeichnis C:\Users\Oliver\Documents\Eigene Bilder.

    Es existiert nicht ist wohl nur ein SymbolLink? Eigentlich sollte Try Catch das abfangen macht es auch wenn ich es ohne for/next Schleife laufen lasse, ich will aber natürlich weiter zählen, das geht aber nicht es kommt der gleiche Error:

    In System.UnauthorizedAccessException ist eine Ausnahme vom Typ "mscorlib.dll" aufgetreten, doch wurde diese im Benutzercode nicht verarbeitet.

    Zusätzliche Informationen: Der Zugriff auf den Pfad "C:\Users\Oliver\Documents\Eigene Bilder" wurde verweigert.



    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    4. 'Set Variables
    6. Dim FileCount As Integer = 0
    7. Dim SourcePath As String
    9. 'End Button
    11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    12. Close()
    13. End Sub
    15. 'Choose Source
    17. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    18. Label3.Text = FileCount
    19. Dim ShowFolders As FolderBrowserDialog = New FolderBrowserDialog
    21. ShowFolders.RootFolder = Environment.SpecialFolder.MyComputer
    23. If ShowFolders.ShowDialog = Windows.Forms.DialogResult.OK Then
    24. SourcePath = ShowFolders.SelectedPath
    26. TextBox1.Text = SourcePath
    28. End If
    30. BackgroundWorker1.RunWorkerAsync()
    32. End Sub
    34. 'Choose Destination
    36. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    37. Dim ShowFolders1 As FolderBrowserDialog = New FolderBrowserDialog
    38. ShowFolders1.RootFolder = Environment.SpecialFolder.MyComputer
    40. If ShowFolders1.ShowDialog = Windows.Forms.DialogResult.OK Then
    41. Dim DestinationPath As String = ShowFolders1.SelectedPath
    42. TextBox2.Text = DestinationPath
    44. End If
    45. End Sub
    47. 'Copy
    49. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    50. If TextBox1.Text <> Nothing And TextBox2.Text <> Nothing Then
    51. My.Computer.FileSystem.CopyDirectory(TextBox1.Text, TextBox2.Text, showUI:=FileIO.UIOption.AllDialogs)
    52. Else
    53. MessageBox.Show("No Source or Destination Path!")
    54. End If
    56. End Sub
    58. [i][b]'Count Files
    60. Private Sub Choice()
    61. For Each file As String In My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*")
    62. Try
    63. FileCount = My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*.*").Count
    64. Catch ex As Exception
    66. End Try
    67. Next
    69. End Sub
    70. [/b][/i]
    71. 'Background Worker that count files via Call Choice
    73. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    75. Call Choice()
    77. BackgroundWorker1.ReportProgress(FileCount) 'Get Filecount to Progressbar1 via ReportProgress
    79. End Sub
    81. ' Define Progressbar1 as Backgroundworker1 in Percentage
    83. Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
    84. ProgressBar1.Value = e.ProgressPercentage
    85. End Sub
    87. ' If RunWorker is completed then Print Out FileCount
    89. Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    90. Label3.Text = FileCount
    91. End Sub
    92. End Class

    garack schrieb:

    Der Fehler mit zu hoher FileANzahl
    Wer oder was limitiert diesen Wert?

    RodFromGermany schrieb:

    Wo kommt diser Wert 49509 her?
    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!

    garack schrieb:

    Der Wert 122 ist für Value ungültig. Value sollte zwischen 'minimum' und 'maximum' liegen.
    Da gibts doch gar nichts zum drüber nachdenken.
    Wenn ein Fehler kommt, und meldet, der Wert sei ausserhalb von Minimum - Maximum, dann liegt das daran, dass der Wert ausserhalb von Minimum - Maximum ist.
    Denk mal nach: Welches Minimum / Maximum könnte gemeint sein?
    Und schau beim Denken die Fehlerzeile an:

    VB.NET-Quellcode

    1. ProgressBar1.Value = e.ProgressPercentage

    Der Wert wird limitiert durch den Datentyp der Variable FileCount welche als Integer also von -2.147.483.648 bis einschließlich 2.147.483.647 definiert ist. Sollte doch reichen?

    Aber stimmt der Min/Max Wert..

    msdn.microsoft.com/de-de/libra…cs-lang=vb#code-snippet-1

    Mit:

    VB.NET-Quellcode

    1. ProgressBar1.Maximum = 100000
    geht es!

    Finde es Super dass ihr richtig "Unterricht" gebt, also nicht alles vorkaut sondern mich selber grübeln lässt und Tipps gebt, so lerne ich gut, Danke !

    Nun ist meine Progressbar bei wenigen Files nicht zu sehen weil Max so groß ist, aber das werde ich wohl hinbekommen. Irgend eine Formel/Operation. Mal sehen.

    Ein anderes Problem ist das die Progressbar sich erst NACH dem zählen füllt nicht während...

    Aber das Problem mit dem

    In System.UnauthorizedAccessException ist eine Ausnahme vom Typ "mscorlib.dll" aufgetreten, doch wurde diese im Benutzercode nicht verarbeitet.Zusätzliche Informationen: Der Zugriff auf den Pfad "C:\Users\Oliver\Documents\Eigene Bilder" wurde verweigert.


    besteht weiter trotz dem Versuch diesen Fehler abzufagen mit:

    'Count Files

    Private Sub Choice()
    For Each file As String In My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*")
    'Try
    FileCount = My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*.*").Count
    Catch ex As Exception

    End Try
    Next

    End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „garack“ ()

    garack schrieb:

    geht es!
    Bei der nächsten Überschreitung geht es nicht mehr.
    Die Frage

    RodFromGermany schrieb:

    Wo kommt diser Wert 49509 her?
    ist noch nicht beantwortet :!:
    Was bitte ganz genau wird da wem zugewiesen?
    Und bitte nicht "Ein Wert", sondern z.B.
    - Ein Progressionswert im Bereich von 0 bis 100,
    - eine Dateilänge im Bereich von 0 bis Long.MaxValue
    oder so.
    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!

    Der Variable FileCount welche mit

    VB.NET-Quellcode

    1. Dim FileCount As Integer = 0
    also Null als Integer Wert definiert ist wird durch

    VB.NET-Quellcode

    1. FileCount = My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*.*").Count


    GetFiles im namespace My die Anzahl der Files zugewiesen. Dieser Wert erhöht sich um 1 wenn ein neues Files gezählt wird. Wüsste nicht mehr darüber zu sagen.

    Übrigens zeigt die Progressbar in Echtzeit an wenn ich sagen wid 122 Files gezählt werden. Aber bei 50k files zeigt sie nichts an, so lange bis das Zählen beendet ist. Dann geht sie animiert in 1 Sekunde nach recht. Zeigt also nicht in Echtzeit an.

    Hi,

    /* die Progressbar ist nicht in Echtzeit, da die Methode die Oberfläche blockiert und du auch merken solltest, dass du nicht machen kannst, solange die Operation läuft,
    also kannst du ja dieses Tutorial verwenden, um asynchron zu arbeiten, um damit die Oberfläche zu "entlasten":
    Async, Await und Task */
    => Unnötig, da BackgroundWorker, aber ist gut zu wissen, wie man asynchron arbeitet :D

    Außerdem gibt es etwas schöneres als den My.Computer.FileSystem-Namespace, nämlich den System.IO-Namespace, der den gleichen Sinn hat, aber der My-Namespace macht alles eigentlich nur umständlicher.

    EDIT: Auskommentiert.
    ~ Alex-Digital :D

    if(!Internet.VBP.Get<User>("Alex-Digital").IsOnline) this.Close(); :D

    Ok danke Alex, werde mir das mal anschauen. Habe den Code nun erweitert und es läuft auch alles, aber immer noch kann ich nicht auf mydocuments zugreifen (wie oben beschrieben).
    Auch laufen die Fortschrittsbalken erst wenn das Kopieren oder Zählen fertig durch...Warum?

    Und ich habe nun eine Chekbox eingebaut die das überschreiben von Files möglich macht, das geht auch.

    Aber wenn ich sie nicht Checke kommt ein Fehler, da er nicht kopieren kann. Gut den Habe ich unterbunden, und eine Fehlermeldung ausgeben lassen.
    Nun muss ich aber gleichzeitig den backgroundworker2 beenden sonst kommt ein "Fertig" und der Fortschrittsbalken läuft durch.

    Das versuche ich mit

    VB.NET-Quellcode

    1. BackgroundWorker2.CancelAsync()
    , scheint aber nicht zu gehen, denn der Balken läuft durch und ein Fertig erscheint.

    hier frage ich den Wert des cancelns ab:

    VB.NET-Quellcode

    1. Private Sub BackgroundWorker2_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker2.RunWorkerCompleted
    3. If BackgroundWorker2.CancellationPending = True Then 'laut debugger ist der false..
    4. Label8.Text = "Abgebrochen"
    5. End If
    6. Label8.Text = "Fertig"
    7. End Sub


    Wenn ich mit den Wert im Debugger abfrage kommt hier auch false raus d.h. der Worker wurde nicht beenden. Also funktioniert BackgroundWorker2.CancelAsync() nicht...

    Sorry für die vielen Fragen, aber oft kann Dr.Google nicht weiterhelfen außerdem beschäftige ich mich erst sei4 Tage mit VB, hatte vorher noch nie programmiert.


    VB.NET-Quellcode

    1. ​Imports System.IO
    3. Public Class Form1
    4. 'Set Variables
    6. Dim FileCount As Integer = 0
    7. Dim SourcePath As String
    8. Dim ovrWrite As Boolean = False
    10. 'End Button
    12. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    13. Close()
    14. End Sub
    16. 'Choose Source
    18. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    19. Label3.Text = FileCount
    20. Dim ShowFolders As FolderBrowserDialog = New FolderBrowserDialog
    22. ShowFolders.RootFolder = Environment.SpecialFolder.MyComputer
    24. If ShowFolders.ShowDialog = Windows.Forms.DialogResult.OK Then
    25. SourcePath = ShowFolders.SelectedPath
    27. TextBox1.Text = SourcePath
    29. End If
    30. Label5.Text = "Counting FIles"
    31. ' Control.CheckForIllegalCrossThreadCalls = False
    32. BackgroundWorker1.RunWorkerAsync()
    34. End Sub
    36. 'Choose Destination
    38. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    39. Dim ShowFolders1 As FolderBrowserDialog = New FolderBrowserDialog
    40. ShowFolders1.RootFolder = Environment.SpecialFolder.MyComputer
    42. If ShowFolders1.ShowDialog = Windows.Forms.DialogResult.OK Then
    43. Dim DestinationPath As String = ShowFolders1.SelectedPath
    44. TextBox2.Text = DestinationPath
    46. End If
    47. End Sub
    49. 'Copy
    51. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    52. If TextBox1.Text <> Nothing And TextBox2.Text <> Nothing Then
    53. BackgroundWorker2.RunWorkerAsync()
    54. Else
    55. MessageBox.Show("No Source or Destination Path!")
    56. End If
    58. End Sub
    60. 'Count Files
    62. Private Sub Choice()
    64. 'For Each folder As String In My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*")
    65. 'Try
    66. FileCount = My.Computer.FileSystem.GetFiles(SourcePath, FileIO.SearchOption.SearchAllSubDirectories, "*.*").Count
    68. 'Catch ex As Exception
    70. 'End Try
    71. 'Next
    73. End Sub
    75. 'Copy Files
    77. Private Sub Copy()
    78. Try
    79. My.Computer.FileSystem.CopyDirectory(TextBox1.Text, TextBox2.Text, overwrite:=ovrWrite) 'Copy Routine
    80. Catch ex As Exception
    81. MessageBox.Show("Files Overweite Error! Check Overwrite Files if you want.")
    82. BackgroundWorker2.CancelAsync() 'Hier muss der Backgroundworker gestoppt werden, wird aber nicht?
    84. End Try
    86. End Sub
    88. ' Backgroundworker Tasks: ------------------------------------------------------------------------------------------------
    90. 'Background1 Worker that count files via Call Choice
    92. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    94. Call Choice()
    96. BackgroundWorker1.ReportProgress(FileCount) 'Get Filecount to Progressbar1 via ReportProgress
    97. ' Label3.Refresh() ' refresh label3 but a thread error comes up can catched with line 34 but dont work
    98. End Sub
    100. ' Define Progressbar1 as Backgroundworker1
    102. Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
    103. ProgressBar1.Maximum = FileCount 'maximum ist die Anazahl der Files
    104. ProgressBar1.Value = e.ProgressPercentage
    105. Label3.Text = FileCount
    106. End Sub
    108. ' If RunWorker1 is completed then Print Out FileCount
    110. Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    111. Label3.Text = FileCount
    112. Label5.Text = ""
    113. End Sub
    115. ' Backgroundworker2 Start File Copy
    117. Private Sub BackgroundWorker2_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
    118. Call Copy()
    119. BackgroundWorker2.ReportProgress(FileCount)
    122. End Sub
    124. ' Define Progressbar2 as Backgroundworker2
    126. Private Sub BackgroundWorker2_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker2.ProgressChanged
    127. ProgressBar2.Maximum = FileCount ' maximale Progressbar soll Anzahl der Files sein
    128. ProgressBar2.Value = e.ProgressPercentage
    129. End Sub
    131. ' Backgroundworker2 Ende Dann Print Fertig
    133. Private Sub BackgroundWorker2_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker2.RunWorkerCompleted
    135. If BackgroundWorker2.CancellationPending = True Then 'laut debugger ist der false..
    136. Label8.Text = "Abgebrochen"
    137. End If
    138. Label8.Text = "Fertig"
    139. End Sub
    141. Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    142. ovrWrite = True
    144. End Sub
    145. End Class

    Wie kann die

    garack schrieb:

    die Anzahl der Files
    eine System.ArgumentOutOfRangeException auslösen?
    Da ist doch Dein Design iwie daneben.
    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!

Facebook
Telefonspende