Click here to Skip to main content
Click here to Skip to main content
Articles » Languages » VB.NET » Utilities » Downloads
 
Add your own
alternative version

Multithreading Backup Utility

, 10 Jul 2008 CPOL
Multithreading is something we will all have to deal with sooner or later. This relatively simple application shows you how to use two threads to copy files. It is also a very handy Windows backup utility with a mirror feature, a batch mode feature, a log file feature and a help button!
Backup.zip
Backup
Backup.ico
Backup.vbproj.user
bin
Debug
Release
Backup.vshost.exe
Backup.vshost.exe.manifest
Help.pdf
Icon1.ico
Icons
error.ico
INFO.ICO
none.ico
question.ico
Thumbs.db
warning.ico
License.rtf
My Project
app.manifest
Application.myapp
Settings.settings
Resources
coder.bmp
coder.jpg
error.ico
Icon1.bmp
Icon1.ico
Icon2.ico
Image1.ico
INFO.ICO
none.ico
question.ico
small.ico
small1.ico
small11.ico
Thumbs.db
warning.ico
Thumbs.db
VSProject_genericproject.ico
VTune
Backup.vpj
BackupSetup.zip
setup.exe
Setup.msi
Public Class MirrorWarning
    Public MirrorCopy As Boolean
    ' Ideally the Messagebox class should be adequate to display a message. Unfortunately as at the
    ' time of coding the Messagebox class does not have a "Dont show this message again" feature. So
    ' this form solves that problem.
    Private Sub YesButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YesButton.Click
        MirrorCopy = True
        Me.Hide()
    End Sub

    Private Sub NoButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoButton.Click
        MirrorCopy = False
        Me.Hide()
    End Sub
    Private Sub MirrorWarning_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If MirrorWarnCheckBox.Checked Then
            My.Settings.MirrorWarning = False
            My.Settings.Save()
        End If
    End Sub
    Private Sub MirrorWarning_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Message As String = "You have selected a mirror copy. This will delete files in "
        Message += "the " & """" & "To Folder " & """" & " in order to mirror the " & """" & "From Folder" & """" & ". "
        Message += "If you have selected the wrong folders you could end up deleting wanted files unintentionally, possibly "
        Message += "deleting all the data you need and rendering your computer inoperable. "
        Message += "So use the mirror option at your own risk! " & vbCrLf & vbCrLf
        Message += "Check your " & """" & "From Folder" & """" & " and " & """" & "To Folder" & """" & " parameters are correct before you proceed. "
        Message += vbCrLf & vbCrLf
        Message += "If you are unsure what this message means then press the " & """" & "No" & """" & " button and then press the " & """" & "Help" & """" & " button for more information." & vbCrLf & vbCrLf

        TextBox1.Text = Message

        Me.CenterToScreen()

    End Sub
End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

Taner Riffat
Nice people only.
Australia Australia
No Biography provided

| Advertise | Privacy | Mobile
Web01 | 2.8.141015.1 | Last Updated 10 Jul 2008
Article Copyright 2006 by Taner Riffat
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid