Threaded Backup Utility

Expand Post »

I have a backup utility that copies all files and folder into a backup area

This can take some time as the files take up 92Mb over a 1Mbps Data Link

I have added multi-threading to the utility so that the copy can be aborted and so the GUI keeps active.
but i would like to add a progress bar based on the current number of files copied.

The only problem is that the only area that can access the progress bar is the Main Thread which is not the Thread doing the file copies.

Is there any way to put the Progress bar in the copying thread, Access the forms control from another thread or create a new form control that is on the Form but generated by the Copying Thread?

Similar Threads

Manually Install Backup in Windows XP Home Edition in Windows tips 'n' tweaks
Problem with Backup Utility In Vista in Windows Vista and Windows 7
cannot backup to CD-ROM in Windows NT / 2000 / XP
Use Backup to Restore Files and Folders on Your Computer in Windows XP in Windows tips 'n' tweaks
Backup routines, with Windows or Norton Ghost in Windows NT / 2000 / XP

ptaylor965

Reputation Points: 16

Solved Threads: 19

Junior Poster

Offline

169 posts
since Oct 2006

Permalink

Sep 5th, 2007

Re: Threaded Backup Utility

Quote ...

Is there any way to put the Progress bar in the copying thread, Access the forms control from another thread or create a new form control that is on the Form but generated by the Copying Thread?

Yes, there is!

What you need to do is access the controls through a dummy interface that calls Invoke on the control instead of manipulating it directly if it's not on the main thread.

vbnet Syntax (Toggle Plain Text)
Delegate Sub SetProgressPropertyCallback( ByVal property As String, ByVal value As Integer )
 
Private Sub SetProgressProperty( ByVal property As String, ByVal value As integer )
  If ProgressBar1.InvokeRequired Then
    Dim d As New SetProgressPropertyCallback( AddressOf SetProgressProperty )
 
    Me.Invoke( d, New Object() { property, value } )
  Else
    Select Case property
      Case "Value"
        ProgressBar1.Value = value
      Case "Max"
        ProgressBar1.Maximum = value
      Case "Min"
        ProgressBar1.Minimum = value
    End Select
  End If
End Sub
Delegate Sub SetProgressPropertyCallback( ByVal property As String, ByVal value As Integer )

Private Sub SetProgressProperty( ByVal property As String, ByVal value As integer )
  If ProgressBar1.InvokeRequired Then
    Dim d As New SetProgressPropertyCallback( AddressOf SetProgressProperty )

    Me.Invoke( d, New Object() { property, value } )
  Else
    Select Case property
      Case "Value"
        ProgressBar1.Value = value
      Case "Max"
        ProgressBar1.Maximum = value
      Case "Min"
        ProgressBar1.Minimum = value
    End Select
  End If
End Sub

Hamrick

Reputation Points: 180

Solved Threads: 34

Posting Whiz

Offline

322 posts
since Jun 2007

Permalink

Sep 5th, 2007

Re: Threaded Backup Utility

Hamrick

Thanks Hamrick,
It worked perfectly

ptaylor965

Reputation Points: 16

Solved Threads: 19

Junior Poster

Offline

169 posts
since Oct 2006

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Many-to-one relationships

Next Thread in VB.NET Forum Timeline: Database not found error

DaniWeb Message

Cancel Changes

User Name
Password