Visual Basic

Imports System.IO
Imports System.Text
Imports Microsoft.VisualBasic.FileIO

Public Class RecordTable
    Private WithEvents _DT As New DataTable
    Private _DTList As New List(Of DataTable)
    Private _ColumnNames As List(Of String)
    Private _FileName As String
    Private _TableChanged As Boolean
    Private WithEvents _DV As New DataView(_DT)

    Friend ReadOnly Property GetView As DataView
        Get
            Return _DV
        End Get
    End Property

    Friend ReadOnly Property GetTable As DataTable
        Get
            Return _DT
        End Get
    End Property

    Friend ReadOnly Property DTList As List(Of DataTable)
        Get
            Return _DTList
        End Get
    End Property

    Friend Property ColumnNames As List(Of String)
        Get
            Return _ColumnNames
        End Get
        Set(ByVal value As List(Of String))
            _ColumnNames = value
        End Set
    End Property

    Friend Property FileName As String
        Get
            Return _FileName
        End Get
        Set(ByVal value As String)
            _FileName = value
        End Set
    End Property

    Friend Property TableChanged As Boolean
        Get
            Return _TableChanged
        End Get
        Set(ByVal value As Boolean)
            _TableChanged = value
        End Set
    End Property

    Public Sub New()
        AddHandler _DT.RowChanged, New DataRowChangeEventHandler(AddressOf TableHasChanged)

    End Sub

#Region "Form Routines"

    Friend Sub ReadRecords()
        Dim recordX As Integer = 0
        Dim dr As DataRow

        Try
            _DT.Clear()

            Using parser As New TextFieldParser(FileName)
                parser.SetDelimiters("|")

                While Not parser.EndOfData
                    ' Read in the fields for the current record
                    Dim fields As String() = parser.ReadFields()
                    Dim columns As String()

                    ' Add record to data table
                    If recordX = 0 Then
                        Dim columnNames As New List(Of String)

                        columns = fields

                        For Each column As String In columns
                            columnNames.Add(column)
                            _DT.Columns.Add(column)
                        Next

                        Me.ColumnNames = columnNames

                        recordX += 1
                    Else
                        Dim i As Integer = 0

                        dr = _DT.NewRow

                        For Each field As String In fields
                            dr.Item(Me.ColumnNames(i)) = field

                            i += 1
                        Next

                        _DT.Rows.Add(dr)

                        recordX += 1
                    End If
                End While
            End Using

            _TableChanged = False

        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Friend Sub SaveFileAs()
        Dim recordBuilder As New StringBuilder

        Try
            Using outputWriter As New StreamWriter(FileName, False, Encoding.UTF8)

                For Each column As DataColumn In _DT.Columns
                    If _DT.Columns.IndexOf(column.ColumnName) = 0 Then
                        recordBuilder.Append(column.ColumnName)
                    Else
                        recordBuilder.Append(String.Format("|{0}", column.ColumnName))
                    End If
                Next

                outputWriter.WriteLine(recordBuilder.ToString)
                recordBuilder.Clear()

                For Each row As DataRow In _DT.Rows
                    For Each column As DataColumn In _DT.Columns
                        If _DT.Columns.IndexOf(column.ColumnName) = 0 Then
                            recordBuilder.Append(row.Item(column.ColumnName).ToString)
                        Else
                            recordBuilder.Append(String.Format("|{0}", row.Item(column.ColumnName).ToString))
                        End If
                    Next

                    outputWriter.WriteLine(recordBuilder.ToString)
                    recordBuilder.Clear()
                Next
            End Using

            TableChanged = False

        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Friend Sub SaveFile()
        Dim recordBuilder As New StringBuilder

        Try
            Using output As New FileStream(FileName, FileMode.OpenOrCreate, FileAccess.Write), _
                outputWriter As New StreamWriter(output, Encoding.UTF8)

                For Each column As DataColumn In _DT.Columns
                    If _DT.Columns.IndexOf(column.ColumnName) = 0 Then
                        recordBuilder.Append(column.ColumnName)
                    Else
                        recordBuilder.Append(String.Format("|{0}", column.ColumnName))
                    End If
                Next

                outputWriter.WriteLine(recordBuilder.ToString)
                recordBuilder.Clear()

                For Each row As DataRow In _DT.Rows
                    For Each column As DataColumn In _DT.Columns
                        If _DT.Columns.IndexOf(column.ColumnName) = 0 Then
                            recordBuilder.Append(row.Item(column.ColumnName).ToString)
                        Else
                            recordBuilder.Append(String.Format("|{0}", row.Item(column.ColumnName).ToString))
                        End If
                    Next

                    outputWriter.WriteLine(recordBuilder.ToString)
                    recordBuilder.Clear()
                Next
            End Using

            TableChanged = False

        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Friend Function GetUniqueFileName()
        Dim i As Integer = 2
        Dim uniqueFileName As String = FileName

        While My.Computer.FileSystem.FileExists(uniqueFileName)
            uniqueFileName = String.Format("{0}{1}", uniqueFileName, i)

            i += 1
        End While

        Return uniqueFileName
    End Function

    Private Sub TableHasChanged(ByVal sender As Object, ByVal e As DataRowChangeEventArgs)
        TableChanged = True
    End Sub

    Friend Function CheckTableUpdates()
        Try
            If TableChanged Then
                Dim result As DialogResult = MessageBox.Show("Would you like to save your changes?", "Save Changes", MessageBoxButtons.YesNoCancel, _
                                MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)

                Return result
            Else
                Return Nothing
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Function

#End Region


End Class

Dim intProgressValue As Integer
Private Sub frmReportSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
   intProgressValue = 0
End Sub

Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
   .
   .
   .
   intProgressValue += 2
   If intProgressValue > 100 Then
       intProgressValue = 5
   End If
   Me.ProgressBar.Value = intProgressValue
End Sub

Private Sub UpdateProgress(ByVal Text As String, ByVal Increment As Integer)
    ToolStripStatusLabel1.Text = Text
    ToolStripProgressBar1.Value += Increment
    StatusStrip1.Invalidate()
End Sub

Public Sub Main()
    ToolStripProgressBar1.Minimum = 0
    ToolStripProgressBar1.Maximum = 100
    ToolStripProgressBar1.Value = 0

    UpdateProgress("Verifying user credentials...", 20)
    {code}

    UpdateProgress("Locating network resources Alpha...", 10)
    {code}

    UpdateProgress("Locating network resources Beta...", 10)
    {code}

    UpdateProgress("Locating network resources Gamma...", 10)
    {code}

    UpdateProgress("Verifying current version...", 25)
    {code}

    UpdateProgress("Loading MyLib1.dll...", 5)
    {code}

    UpdateProgress("Loading MyLib2.dll...", 5)
    {code}

    UpdateProgress("Loading MyLib3.dll...", 5)
    {code}

    UpdateProgress("Finalizing...", 10)
    {code}

    Me.Close()
End Sub

Dim MyFile As FileStream = File.Create(My.Settings.strFileName)

MyFile.Close
File.Delete(My.Settings.strFileName)

Dim watcher As new FileSystemWatcher(folder, True)
watcher.setStrategy(Win9xWatcherStrategy.class)