Visual Basic

Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'Get a list of drives
    Dim drives As System.Collections.ObjectModel.ReadOnlyCollection(Of IO.DriveInfo) = My.Computer.FileSystem.Drives
    Dim rootDir As String = String.Empty

    'Now loop thru each drive and populate the treeview:
    For i As Integer = 0 To drives.Count - 1
      rootDir = drives(i).Name

      'Add this drive as a root node:
      TreeView1.Nodes.Add(rootDir)

      'Populate this root node:
      PopulateTreeView(rootDir, TreeView1.Nodes(i))
    Next

  End Sub

  Private Sub PopulateTreeView(ByVal dir As String, ByVal parentNode As TreeNode)
    Dim folder As String = String.Empty

    Try
      Dim folders() As String = IO.Directory.GetDirectories(dir)

      If folders.Length <> 0 Then
        Dim childNode As TreeNode = Nothing

        For Each folder In folders
          childNode = New TreeNode(folder)
          parentNode.Nodes.Add(childNode)
          PopulateTreeView(folder, childNode)
        Next
      End If

    Catch ex As UnauthorizedAccessException
      parentNode.Nodes.Add(folder & ": Access Denied")

    End Try

  End Sub

End Class

Private Sub SetLabelText(ByVal s As String)

    If Me.lbTime.InvokeRequired Then
        Me.lbTime.Invoke(New Action(Of String)(AddressOf SetLabelText), s)
        'Me.lbTime.Invoke(New Action(Of String)(AddressOf SetLabelText), s)
    Else
        Me.lbTime.Text = s
    End If
End Sub

Private Sub SettxtChannelData(ByVal arrIndex As Integer, ByVal s As String)
    If Me.txtChannelData(arrIndex).InvokeRequired Then
        Me.txtChannelData(arrIndex).Invoke(New Action(Of String)(AddressOf SettxtChannelData), s)
    Else
        Me.txtChannelData(arrIndex).Text = s
    End If
End Sub

"C:\Program Files\MySQL\MySQL Server 5.5\bin\mysqldump.exe" --user=root --password=mypassword --host=localhost --port=3306 --database sakila > "C:\backup\sakilabackup.sql"""

txtProgram.Text = "C:\Program Files\MySQL\MySQL Server 5.5\bin\mysqldump.exe" ,

txtArguments.Text= "--user=root --password=mypassword --host=localhost --port=3306 --database sakila >"C:\backup\sakilabackup.sql"""

System.Diagnostics.Process.Start(txtProgram.Text, txtArguments.Text)