Geschwindigkeit usw...

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 76 Antworten in diesem Thema. Der letzte Beitrag () ist von Facebamm.

    @Dksksm & @VaporiZed

    Moin moin

    Also ich hatte es soweit hinbekommen, das die beiden Threads gleichzeitig laufen und auch das tun was ich mir so gedacht hatte.
    Nun wollte ich diese "Routinen" einbauen um etwaige Fehler wie z.B. abziehen des USB-Sticks oder was auch immer passieren kann, abzufangen.
    Nach Umbau bekomme ich angezeigt:
    Fehler 1 Der =-Operator ist für die Typen "System.Threading.Tasks.Task(Of Boolean)" und "Boolean" nicht definiert.

    ​Warnung 4 Da auf diesen Aufruf nicht gewartet wird, wird die Ausführung der aktuellen Methode vor Abschluss des Aufrufs fortgesetzt. Ziehen Sie ein Anwenden des 'Await'-Operators auf das Ergebnis des Aufrufs in Betracht

    Wie kann ich das lösen? Danke

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub btn_copy_Click(sender As Object, e As EventArgs) Handles btn_copy.Click
    2. If btn_copy.DialogResult = Windows.Forms.DialogResult.OK Then
    3. Dim result1 As Boolean = String.IsNullOrWhiteSpace(tb_name.Text)
    4. If result1 = True Then
    5. lbl_error.Visible = True
    6. lbl_error.Text = "Feld Name kann nicht leer sein."
    7. End If
    8. Threadsstarten()
    9. End If
    10. End Sub
    12. Private Sub Threadsstarten()
    14. If zippeAsync() = True OrElse kopiereAsync() = True Then '<======= Hier steht die Fehlermeldung
    16. anzeigen(0, 0)
    17. lbltest.Text = CStr(Klass.x)
    18. lbltest2.Text = CStr(Klass.y)
    19. zippeAsync() '<=============2ter Fehler
    20. kopiereAsync()
    21. anzeigen(1, 1)
    22. 'MessageBox.Show("Die Daten wurden kopiert.")
    23. Else
    24. anzeigen(2, 2)
    25. 'MessageBox.Show("Ein Fehler trat auf, Daten wurden nicht kopiert.")
    26. End If
    27. End Sub
    29. Private Async Function zippeAsync() As Task(Of Boolean)
    30. Try
    31. Await Threading.Tasks.Task.Run(Sub() zippen())
    32. Klass.x = 1
    33. anzeigen(Klass.x, 0)
    34. Return True
    35. Catch ex As Exception
    36. Return False
    37. End Try
    38. End Function
    40. Private Async Function kopiereAsync() As Task(Of Boolean)
    41. Try
    42. Await Threading.Tasks.Task.Run(Sub() kopieren())
    43. Klass.y = 1
    44. anzeigen(Klass.y, 0)
    45. Return True
    46. Catch ex As Exception
    47. Return False
    48. End Try
    49. End Function
    51. Private Sub zippen()
    52. IO.Directory.CreateDirectory(Klass.HDD2temp)
    53. ZipFile.CreateFromDirectory(Klass.Source, Klass.HDD2temp & ".zip", CompressionLevel.Optimal, False)
    54. IO.Directory.Delete(Klass.HDD2temp)
    55. End Sub
    56. Private Sub kopieren()
    57. My.Computer.FileSystem.CopyDirectory(Klass.Source, Klass.HDD1temp)
    58. End Sub
    60. Private Sub anzeigen(ByVal x As Integer, ByVal y As Integer)
    61. If Klass.x = 1 Then
    62. lbltest.Text = "Zippen ist fertig"
    63. ElseIf Klass.y = 1 Then
    64. lbltest2.Text = "Kopieren ist fertig"
    65. End If
    66. If Klass.x = 1 And Klass.y = 1 Then
    67. tb_name.Enabled = True
    68. tb_name.Focus()
    69. btn_copy.Visible = True
    70. PictureBox1.Visible = False
    71. Else
    72. tb_name.Enabled = False
    73. btn_copy.Visible = False
    74. PictureBox1.Visible = True
    75. End If
    76. If Klass.x = 2 And Klass.y = 2 Then
    77. lbltest.Text = "Es trat ein Fehler auf"
    78. lbltest2.Text = "Es trat ein Fehler auf"
    79. End If
    80. End Sub

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Ich kann deinen Code schwer nachvollziehen, mit den Infos hagelt es Fehler ohne Ende und ich tu mich auch mit VB schwer.
    1. Deine Sub zippen und kopieren müssen geändert werden in Private Function kopieren() As Boolean z.B.
    2. Deine Sub Threadstarten wird Private Async Sub Threadsstarten()

    VB.NET-Quellcode

    1. Private Async Sub Threadsstarten()
    2. Dim funcResultA = True
    3. Dim funcResultB = True
    4. Await Task.Run(Sub() funcResultA = zippen())
    5. Await Task.Run(Sub() funcResultB = kopieren())
    7. If funcResultA AndAlso funcResultB Then
    9. Else
    10. anzeigen(2, 2)
    11. 'MessageBox.Show("Ein Fehler trat auf, Daten wurden nicht kopiert.")
    12. End If
    13. End Sub


    Natürlich müssen beide Funktionen jetzt auch einen Boolean zurückgeben, insoweit musst du dort deinen Code anpassen.
    Mehr brauchst du nicht, du machst es zu kompliziert.

    @Dksksm

    Halt leider nicht funktioniert.
    Habe jetzt nochmal alles überdacht und dann folgendes erreicht, was erstmal klappt, zumindest nach mehr als 20 Durchläufen. ;)

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Private Sub btn_copy_Click(sender As Object, e As EventArgs) Handles btn_copy.Click
    3. If btn_copy.DialogResult = Windows.Forms.DialogResult.OK Then
    4. Dim result1 As Boolean = String.IsNullOrWhiteSpace(tb_name.Text)
    5. If result1 = True Then
    6. lbl_error.Visible = True
    7. lbl_error.Text = "Feld Name kann nicht leer sein."
    8. End If
    9. Threadsstarten()
    10. End If
    11. End Sub
    12. Private Sub Threadsstarten()
    13. anzeigen(0, 0)
    14. zippeAsync()
    15. kopiereAsync()
    16. End Sub
    18. Private Async Sub zippeAsync()
    19. Await Threading.Tasks.Task.Run(Sub() zippen())
    20. anzeigen(Klass.x, Klass.y)
    21. End Sub
    23. Private Async Sub kopiereAsync()
    24. Await Threading.Tasks.Task.Run(Sub() kopieren())
    25. anzeigen(Klass.x, Klass.y)
    26. End Sub
    28. Private Function zippen() As Boolean
    29. Try
    30. If Directory.Exists(Klass.HDD2temp) Then
    31. Else
    32. Directory.CreateDirectory(Klass.HDD2temp)
    33. End If
    34. ZipFile.CreateFromDirectory(Klass.Source, Klass.HDD2temp & ".zip", CompressionLevel.Optimal, False)
    35. IO.Directory.Delete(Klass.HDD2temp)
    36. Klass.x = 1
    37. Return True
    38. Catch ex As Exception
    39. Klass.x = 2
    40. Return False
    41. End Try
    42. End Function
    43. Private Function kopieren() As Boolean
    44. Try
    45. My.Computer.FileSystem.CopyDirectory(Klass.Source, Klass.HDD1temp)
    46. Klass.y = 1
    47. Return True
    48. Catch ex As Exception
    49. Klass.x = 2
    50. Return False
    51. End Try
    52. End Function
    54. Private Sub anzeigen(ByVal x As Integer, ByVal y As Integer)
    55. If Klass.x = 2 OrElse Klass.y = 2 Then
    56. PictureBox1.Visible = False
    57. tb_name.Enabled = True
    58. btn_copy.Visible = True
    59. lbltest.Text = "Es trat ein Fehler beim zippen auf"
    60. lbltest2.Text = "Es trat ein Fehler beim kopieren auf"
    61. Return
    62. End If
    63. If Klass.x = 1 Then lbltest.Text = "Zippen ist fertig"
    64. If Klass.y = 1 Then lbltest2.Text = "Kopieren ist fertig"
    65. If Klass.x = 1 And Klass.y = 1 Then
    66. tb_name.Enabled = True
    67. tb_name.Focus()
    68. btn_copy.Visible = True
    69. PictureBox1.Visible = False
    70. Else
    71. tb_name.Enabled = False
    72. btn_copy.Visible = False
    73. PictureBox1.Visible = True
    74. End If
    75. End Sub

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Dann kannste zippen und kopieren aber wieder zu normalen Subs machen. Der Punkt ist: Was erwartest Du bei dieser Zeile?

    VB.NET-Quellcode

    1. If zippeAsync() = True OrElse kopiereAsync() = True Then
    Wenn man davon absieht, dass = True jeweils überflüssig ist, kann das doch gar nicht so bei asynchronen/nebenläufigen Methodenaufrufen funktionieren. Denn das Resultat steht doch erst dann fest, wenn die asynchronen Methoden fertig sind. Und wenn Du darauf warten willst, brauchst Du es gar nicht erst asynchron laufen zu lassen. Deine jetzige Lösung ist aber eine Möglichkeit, das Problem zu umgehen und zum Ziel zu kommen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed
    ​Deine jetzige Lösung ist aber eine Möglichkeit, das Problem zu umgehen und zum Ziel zu kommen.
    Was könnte man ändern?
    ...
    ..

    VB.NET-Quellcode

    1. ​If zippeAsync() = True OrElse kopiereAsync() = True Then

    Ja das war wohl bullshit ;)
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Dksksm
    Natürlich habe ich es versucht so umzusetzen. Erst war vieles mit grün unterkringelt und als ich das weg hatte lief das immer in den
    ​ Else anzeigen(2, 2) MessageBox.Show("Ein Fehler trat auf, Daten wurden nicht kopiert.") Zweig, wo bei nur die MsgBox aufpoppte aber nie das "anzeigen(2,2)" ausgeführt wurde.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Erst war vieles mit grün unterkringelt
    Dann gleich mal alles auf scharf schalten. Grüne Warnungen haben im Code nix verloren, sondern sollten immer als Fehler das Kompilieren blockieren, damit man gar nicht erst in die Gefahr gerät, Warnungen zu ignorieren.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed

    Im Anhang meine jetzigen Standarteinstellungen. Das Mit den "Warnungen" habe ich nun eingeschaltet. Den Rest hatte ich schon länger so.

    Habe nun noch etwas geändert und alles bereinigt. Hatte gesehen das x und y ja gar nicht Public und in der Class sein müssen.
    Was nicht klappte war, die function zippen/kopieren wieder in eine Sub zu wandeln. Da klappte das mit dem Return nicht mehr.

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Class frm_copysd
    3. Dim Klass As New mainclass
    4. 'x Hilfsvariable für zip
    5. Dim x As Integer
    6. ' Hilfsvariable für kopie
    7. Dim y As Integer
    9. Private Sub frm_copysd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    10. PicBoxAnimation.Image = My.Resources.progress
    11. PicBoxAnimation.Visible = False
    12. If Klass.readfrom_XML() = True Then
    13. Else
    14. MessageBox.Show("Ein Fehler trat auf, Daten wurden nicht gelesen.")
    15. End If
    16. If Klass.Zip = 0 Then lbl_zipp.Text = "Zippen ist aktiviert." Else lbl_zipp.Text = "Speichern ist aktiviert."
    17. lbl_error.Visible = False : btn_copy.Enabled = False : lbl_count.Visible = False
    18. lblzipp.Text = "" : lblkopie.Text = ""
    19. End Sub
    21. Private Sub tb_name_KeyDown1(sender As Object, e As KeyEventArgs) Handles tb_name.KeyDown
    22. If e.KeyCode = Keys.Enter Then
    23. tb_name.Text = tb_name.Text.Trim
    24. tb_source.Text = Klass.Source
    25. tb_hdd1.Text = Klass.HDD1 & tb_name.Text & "\" & Klass.DirDatum
    26. Klass.HDD1temp = Klass.HDD1 & tb_name.Text & "\" & Klass.DirDatum
    27. tb_hdd2.Text = Klass.HDD2 & tb_name.Text & "\" & Klass.DirDatum
    28. Klass.HDD2temp = Klass.HDD2 & tb_name.Text & "\" & Klass.DirDatum
    29. btn_copy.Focus()
    30. lbl_count.Visible = True : lbl_count.Text = Klass.countfiles()
    31. btn_copy.Enabled = True
    32. End If
    33. End Sub
    35. Private Sub btn_copy_Click(sender As Object, e As EventArgs) Handles btn_copy.Click
    36. If btn_copy.DialogResult = Windows.Forms.DialogResult.OK Then
    37. Dim result1 As Boolean = String.IsNullOrWhiteSpace(tb_name.Text)
    38. If result1 = True Then
    39. lbl_error.Visible = True
    40. lbl_error.Text = "Feld Name kann nicht leer sein."
    41. End If
    42. Threadsstarten()
    43. End If
    44. End Sub
    45. Private Sub Threadsstarten()
    46. x = 0 : y = 0
    47. anzeigen(x, y)
    48. zippeAsync()
    49. kopiereAsync()
    50. End Sub
    52. Private Async Sub zippeAsync()
    53. Await Threading.Tasks.Task.Run(Sub() zippen())
    54. anzeigen(x, y)
    55. End Sub
    57. Private Async Sub kopiereAsync()
    58. Await Threading.Tasks.Task.Run(Sub() kopieren())
    59. anzeigen(x, y)
    60. End Sub
    62. Private Function zippen() As Boolean
    63. Try
    64. If Not Directory.Exists(Klass.HDD2temp) Then Directory.CreateDirectory(Klass.HDD2temp)
    65. ZipFile.CreateFromDirectory(Klass.Source, Klass.HDD2temp & ".zip", CompressionLevel.Optimal, False)
    66. IO.Directory.Delete(Klass.HDD2temp)
    67. x = 1
    68. Return True
    69. Catch ex As Exception
    70. x = 2
    71. Return False
    72. End Try
    73. End Function
    75. Private Function kopieren() As Boolean
    76. Try
    77. My.Computer.FileSystem.CopyDirectory(Klass.Source, Klass.HDD1temp)
    78. y = 1
    79. Return True
    80. Catch ex As Exception
    81. x = 2
    82. Return False
    83. End Try
    84. End Function
    86. Private Sub anzeigen(ByVal x As Integer, ByVal y As Integer)
    87. If x = 0 And y = 0 Then
    88. lblzipp.Text = "Dateien zippen wurde gestartet."
    89. lblkopie.Text = "Dateien kopieren wurde gestartet."
    90. PicBoxAnimation.Visible = True
    91. tb_name.Enabled = False
    92. btn_copy.Visible = False
    93. Return
    94. End If
    95. If x = 2 OrElse y = 2 Then
    96. PicBoxAnimation.Visible = False
    97. tb_name.Enabled = True
    98. btn_copy.Visible = True
    99. lblzipp.Text = "Es trat ein Fehler beim zippen auf"
    100. lblkopie.Text = "Es trat ein Fehler beim kopieren auf"
    101. Return
    102. End If
    103. If x = 1 Then lblzipp.Text = "Zippen ist fertig"
    104. If y = 1 Then lblkopie.Text = "Kopieren ist fertig"
    105. If x = 1 And y = 1 Then
    106. tb_name.Enabled = True
    107. tb_name.Focus()
    108. btn_copy.Visible = True
    109. PicBoxAnimation.Visible = False
    110. End If
    111. End Sub
    113. Private Sub tb_name_GotFocus(sender As Object, e As EventArgs) Handles tb_name.GotFocus
    114. tb_name.Clear()
    115. tb_source.Clear()
    116. tb_hdd1.Clear()
    117. tb_hdd2.Clear()
    118. lbl_error.Visible = False
    119. btn_copy.Enabled = False
    120. End Sub
    121. End Class

    Bilder

    • Standart-1.jpg

      616,92 kB, 1.555×930, 34 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    nuja, bei Sub gibt's eben keinen Rückgabewert

    VB.NET-Quellcode

    1. Private Sub zippen()
    2. Try
    3. If Not Directory.Exists(Klass.HDD2temp) Then Directory.CreateDirectory(Klass.HDD2temp)
    4. ZipFile.CreateFromDirectory(Klass.Source, Klass.HDD2temp & ".zip", CompressionLevel.Optimal, False)
    5. IO.Directory.Delete(Klass.HDD2temp)
    6. x = 1
    7. Catch ex As Exception
    8. x = 2
    9. End Try
    10. End Sub
    12. Private Sub kopieren()
    13. Try
    14. My.Computer.FileSystem.CopyDirectory(Klass.Source, Klass.HDD1temp)
    15. y = 1
    16. Catch ex As Exception
    17. x = 2
    18. End Try
    19. End Sub

    Aaallerdings: Fange nur Exceptions ab, die Du kennst und sinnvoll bearbeiten kannst. Dementsprechend: Werde bei den Catch-Bereichen konkret, damit Du auch angeben kannst, was genau schiefgelaufen ist.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Ich verstehe nicht. Wie soll eine alternative Ausgabe Deiner Meinung nach aussehen? Datei? eMail? Bunte Bildschirmpunkte?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Achso, ja gut. Ne TextBox kannst Du schon machen, solange die Exception innherlab des Form-Codes auftritt. Denn in einer sonstigen Klasse hast Du ja offiziell/standardmäßig keinen Zugriff auf ein FormControl wie ne TextBox.

    ##########

    @Amelie: Bedenke aber, wieviele Exception-Infos Dir durch eine MessageBox oder gar einzeilige TextBox verloren gehen (können). Ich protokolliere in einer Datei, falls ich die Exception nicht sinnvoll/im Voraus behandeln kann:
    • Zeitpunkt der Exception
    • Programm
    • die ExceptionMessage natürlich
    • die Methode, in der der Fehler aufgetreten ist
    • StackTrace (Methoden-Aufrufkaskade)
    • innere ExceptionMessage, falls vorhanden
    An die Daten, welche Zeile oder welcher Variable, welcher Wert, also die Details komm ich leider noch nicht ran.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

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

    @VaporiZed

    Habe nun einen weiteren Teil von meinem Programm so umgebaut das der alte VisualBasic NameSpace weg ist.
    Jetzt habe ich aber das Problem, was du eben angesprochen hast. ich kann die Dateien nicht mehr in der ListBox auflsiten.
    Ohne das ganze Async funktioniert der Code soweit.

    Ich weiß da muss nun etwas mit Invoke / Delegaten etc passieren .. aber wie, da komme ich nicht hinter. ?(

    VB.NET-Quellcode

    1. Me.Invoke(Sub() ????????? ))


    EDIT: Ich glaub ich habs ;) Testen Testen


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub btn_copy_Click(sender As Object, e As EventArgs) Handles btn_copy.Click
    2. kopiereAsync()
    3. End Sub
    5. Private Async Sub kopiereAsync()
    6. PBcopy.Visible = True
    7. Await Threading.Tasks.Task.Run(Sub() copyfiles())
    8. PBcopy.Visible = False
    9. End Sub
    11. Private Sub copyfiles()
    12. Extension()
    13. If FileExtension = Nothing Then
    14. Dim übergabe As String = "nefcr2arwjpg"
    15. MessageBox.Show("Bitte Dateityp auswählen", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    16. Exit Sub
    17. End If
    18. Try
    19. If Not Directory.Exists(Klass.Workdir & tempdir) Then Directory.CreateDirectory(Klass.Workdir & tempdir)
    20. For Each line In tb_auswahl.Lines
    21. Dim source As String = line
    22. For Each filename As String In Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories)
    23. Dim sourceFile = Path.GetFileName(source & FileExtension)
    24. Dim tempFilePath = Klass.Workdir & tempdir & sourceFile
    25. lb_worktarget.Items.Add(tempFilePath) '<=======================Hier fliegst raus....
    26. File.Copy(filename, tempFilePath, True)
    27. Next
    28. Next
    29. Catch ex As Exception
    30. MessageBox.Show("Fehler: " & ex.ToString)
    31. End Try
    32. End Sub

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    statt den ????? einfach das, was Du machen willst. (Und statt Invoke BeginInvoke)

    VB.NET-Quellcode

    1. Me.BeginInvoke(Sub() lb_worktarget.Items.Add(tempFilePath)))
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed

    Also das mit dem Invoke habe ich nun so gelößt, klappt auch wunderbar. ;)
    Aber jetzt sehe ich mal wieder den Wald ..nicht....
    In der If Schleife ob die Dateien denn vorhanden sind...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub btn_copy_Click(sender As Object, e As EventArgs) Handles btn_copy.Click
    2. kopiereAsync()
    3. End Sub
    5. Private Async Sub kopiereAsync()
    6. Await Threading.Tasks.Task.Run(Sub() copyfiles())
    7. End Sub
    9. Private Sub copyfiles()
    10. Extension()
    11. If FileExtension = Nothing Then
    12. Dim übergabe As String = "nefcr2arwjpg"
    13. MessageBox.Show("Bitte Dateityp auswählen", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    14. Exit Sub
    15. End If
    16. Try
    17. Me.Invoke(Sub() PBshow(True))
    18. For Each line In tb_auswahl.Lines
    19. Dim source As String = line
    20. For Each filename As String In Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories)
    21. Dim sourceFile = Path.GetFileName(source & FileExtension)
    22. Dim tempFilePath = Klass.Workdir & tempdir & sourceFile
    24. If System.IO.File.Exists(tempFilePath) Then
    26. Me.Invoke(Sub() listbox(sourceFile & "nicht vorhanden")) '<======== Das macht der code nicht wenn Dateien nicht vorhanden!!
    28. Else
    30. Me.Invoke(Sub() listbox(tempFilePath)) '<====== Das läuft einwandfrei.
    32. If Not Directory.Exists(Klass.Workdir & tempdir) Then Directory.CreateDirectory(Klass.Workdir & tempdir)
    33. File.Copy(filename, tempFilePath, True)
    34. End If
    35. Next
    36. Next
    37. Threading.Thread.Sleep(2000)
    38. Me.Invoke(Sub() PBhide(False))
    39. Catch ex As Exception
    40. MessageBox.Show("Fehler: " & ex.ToString)
    41. End Try
    42. End Sub
    43. Private Sub listbox(result As String)
    44. lb_worktarget.Items.Add(result)
    45. End Sub
    47. Private Sub PBshow(result As Boolean)
    48. PBcopy.Visible = result
    49. End Sub
    50. Private Sub PBhide(result As Boolean)
    51. PBcopy.Visible = result
    52. lbl_status.Visible = True
    53. lbl_status.Text = "Dateien ins Arbeitsverzeichnis kopiert."
    54. End Sub

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    VB.NET-Quellcode

    1. If System.IO.File.Exists(tempFilePath) Then
    2. Me.Invoke(Sub() listbox(sourceFile & "nicht vorhanden")) '<======== Das macht der code nicht wenn Dateien nicht vorhanden!!
    Natürlich nicht. Der Code wird nur ausgeführt, wenn die Bedingung zutrifft, also die Datei vorhanden ist. Oder versteh ich Dich falsch?
    btw: If-Schleife
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed

    Der code soll mit aber auch in der Listbox anzeigen, wenn die dateien nicht gefunden werden oder nicht vorhanden sind.

    Hab echt da std drangesessen und nix funktioniert. ;(

    Das mit meinen Invoke so OK??
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Dann versteh ich Deine (Programm)Logik nicht. Da steht doch:

    VB.NET-Quellcode

    1. Dim sourceFile = Path.GetFileName(source & FileExtension)
    2. Dim tempFilePath = Klass.Workdir & tempdir & sourceFile
    4. If System.IO.File.Exists(tempFilePath) Then
    5. Me.Invoke(Sub() listbox(sourceFile & "nicht vorhanden")) '<======== Das macht der code nicht wenn Dateien nicht vorhanden!!

    Also: Wenn "Klass.Workdir & tempdir & sourceFile" der Pfad eine existierenden Datei ist und die Datei Test.txt heißt, dann schreibe in die Listbox Test.txtnicht vorhanden (ja, da fehlt ein Leerzeichen in dem Text, denn so steht es (falsch) im Code). Aber warum sollte - wenn die Datei exisiert - in die ListBox geschrieben werden, dass sie nicht vorhanden ist? Da ergibt die Codelogik keinen Sinn.

    Das mit dem Invoke ist ok. Wie gesagt, BeginInvoke ist zu bevorzugen. Invoke führt eine Aktion aus und wartet, bis diese fertig ist. Einen ListBox-Eintrag hinzuzufügen, dauert nicht lange, aber BeginInvoke wartet eben nicht.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

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

Facebook
Telefonspende