OpenFileDialog vo Visual Basic 2008

Dim Open As New OpenFileDialog()
Dim myStreamReader As System.IO.StreamReader
Open.Filer = "Textové súbory (*.txt)|*.txt|Všetky súbory (*.*)|*.*"
Open.CheckFileExists = True
Open.Title = "Titulok Okna"
Open.ShowDialog(Me)
Try
  Open.OpenFile()
  myStreamReader = System.IO.File.OpenText(Open.FileName)
  document.Text = myStreamReader.ReadToEnd()
Catch ex As Exception

End Try

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Open As New OpenFileDialog()

        Button2.Tag = ""

        Open.Filter = "Binárne súbory (*.exe)|*.exe|Všetky súbory (*.*)|*.*"
        Open.CheckFileExists = True
        Open.Title = "Titulok Okna"
        Open.ShowDialog(Me)

        Button2.Tag = Open.FileName()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If Button2.Tag <> "" Then Shell(Button2.Tag, AppWinStyle.NormalFocus)

    End Sub

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.FileSystem.DirectoryExists("C:\A\") = True Then
            'Vytorili ste zložku "A" Na Hardisku "C:\A\ .  .  .  ."
        Else
            MkDir("C:\A\")
        End If
        'Toto vytvára zložku "A" inak sa Váš text nevytvorí a neuložý!
        'Nemá kde.
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Na TextBox1.Text napíšte váš lubovolní text"

        'V políčku TextBox2.Text sy môžte zvolit kde bude Uložený a ako sa bude volať.
        'Vtomto prípade bude uložený v zložke "C:\A\ .  .  .  ."
        My.Computer.FileSystem.WriteAllText(TextBox2.Text, TextBox1.Text, False)
        MsgBox("Your text was created! Start saving!   Váš text bol vytvorený! Spustít zápis", MsgBoxStyle.Information, "Login created!")
        'Vytorili ste zložku "A" Na Hardisku "C:\A\ .  .  .  ." a aj Váš text.
        'Text odporúčam uložiť vo formáte TXT. A ak chcete v DOC musíte mať vo WORDe spustené "Macro"!
       
    End Sub
End Class

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Stop()
        If My.Computer.FileSystem.FileExists("C:\A\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav") Then
            ' Ak je na disku "C" a v zložke "A" menovaná skladba tak sa spustí "Play.ShowDialog ()
            Me.Hide()
            Play.ShowDialog()
       End If
    End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start() ' Start the timer.

       My.Computer.FileSystem.CopyFile( _
       "D:\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav", _
    "C:\A\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav") 'Menovaný kopirovací proces.

MsgBox("File copy wav. Máte to už skopirované wav", MsgBoxStyle.Information, "Info")
        Play.ShowDialog()
 End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        AddHandler Timer1.Tick, AddressOf ProgressBar1_Click

        Timer1.Interval = 5000 '<<-- Pravdepodobne by tu malo pracovať     My.Computer.FileSystem.CopyFile
      'Start the timer.
        Timer1.Start()

    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
        ProgressBar1.Increment(1)
        ' Display the textual value of the ProgressBar in the StatusBar control's first panel.
        Label1.Text = ProgressBar1.Value.ToString() + "%"
        ' Determine if we have completed by comparing the value of the Value property to the Maximum value.
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            ' Stop the timer.
            Timer1.Stop()
        End If
    End Sub
End Class

Dim sr As New IO.FileStream(path & mediafile, IO.FileMode.Open) 'source file

Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Stop()
        If My.Computer.FileSystem.FileExists("C:\A\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav") Then
            ' Ak je na disku "C" a v zložke "A" menovaná skladba tak sa spustí "Play.ShowDialog ()
            Me.Hide()
            Play.ShowDialog()

        End If
    End Sub
    Sub copyfilewithprogress()
        Dim path As String = Application.StartupPath & "\" 'Implantované zo "http://www.vbdotnetforums.com/gui/8288-copy-file-progress-bar.html"
        Dim mediafile As String = "D:\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav"
        Dim fi As New IO.FileInfo(mediafile)
        Dim sr As New IO.FileStream(path & mediafile, IO.FileMode.Open) 'source file
        Dim sw As New IO.FileStream(path & "copy of " & mediafile, IO.FileMode.Create) 'target file, defaults overwrite
        Dim len As Long = sr.Length - 1
        For i As Long = 0 To len
            sw.WriteByte(sr.ReadByte)
            If i Mod 1000 = 0 Then 'only update UI every 1 Kb copied
                ProgressBar1.Value = i * 100 / len
                Application.DoEvents()
            End If
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start() ' Start the timer.

        ProgressBar1.Value = 0
        My.Computer.FileSystem.CopyFile( _
       "D:\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav", _
    "C:\A\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav") 'Menovaný kopirovací proces.



        MsgBox("File copy wav. Máte to už skopirované wav", MsgBoxStyle.Information, "Info")
        Play.ShowDialog() 'Druhí Form v ktorom sa menovaná skladba spustí


    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        AddHandler Timer1.Tick, AddressOf ProgressBar1_Click
        copyfilewithprogress()
        Timer1.Interval = 5000 '<<-- Pravdepodobne by tu malo pracovať My.Computer.FileSystem.CopyFile(Skladby)
         'Start the timer.
        Timer1.Start()
 End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
        ProgressBar1.Increment(1)
        ' Display the textual value of the ProgressBar in the StatusBar control's first panel.
        Label1.Text = ProgressBar1.Value.ToString() + "%"
        ' Determine if we have completed by comparing the value of the Value property to the Maximum value.
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            ' Stop the timer.
            Timer1.Stop()
        End If
    End Sub
End Class