Hallo,
ich bastel gerade ein Tool mit dem ich Bilder von einem Speichermedium direkt in einen Ordner kopieren kann Problem bei der Verwendung vom Backgroundworker für den Kopiervorgang und die Statusanzeige funktioniert nicht.
Kopieren an sich geht wenn ich den die befehle für Label,Progressbar und co auskommentiere.
Das ist der Background Worker
Was muss ich da ändern ?
DANKE für eure Hilfe!
ich bastel gerade ein Tool mit dem ich Bilder von einem Speichermedium direkt in einen Ordner kopieren kann Problem bei der Verwendung vom Backgroundworker für den Kopiervorgang und die Statusanzeige funktioniert nicht.
Kopieren an sich geht wenn ich den die befehle für Label,Progressbar und co auskommentiere.
Das ist der Background Worker
Visual Basic-Quellcode
- Private Sub Kopiervorgang_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles Kopiervorgang.DoWork
- My.Computer.FileSystem.CreateDirectory(OrdnerPfad)
- For Each c As String In IO.Directory.GetFiles(KameraPfad, "*.*")
- d = d + 1
- Next
- Try
- Statusleiste.Maximum = d
- L_status.Text = "Dateien: " & d
- For Each s As String In IO.Directory.GetFiles(KameraPfad, "*.*")
- Dim fi As New IO.FileInfo(s)
- TB_status.AppendText("Kopiere: " & OrdnerPfad + "\" + fi.Name & " .... ")
- IO.File.Copy(s, OrdnerPfad + "\" + fi.Name)
- Statusleiste.Value += 1
- TB_status.AppendText("OK" & vbNewLine)
- Next
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
Was muss ich da ändern ?
DANKE für eure Hilfe!