Public LoadingThread2 As New System.Threading.Thread(AddressOf SaveFile)
    Public Sub SaveFile()
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
                ListBox1.Items.Add("Wiederherstellen gestartet.")
                Button2.Enabled = True
                Dim reader As IO.StreamReader = IO.File.OpenText( _
                  OpenFileDialog1.FileName)
                Dim writer As IO.BinaryWriter
                Dim bool As Boolean
                bool = False
                Dim s As String
                reader.ReadLine()
                ProgressBar2.Maximum = reader.BaseStream.Length
                While (reader.Peek > -1)
 
                    Dim t0t As String
                    s = reader.ReadLine
                    For Each t0t In s.Substring(0)
                        If CheckBox1.Checked = True Then
                            LoadingThread2.Sleep(1)
                        End If
                        ProgressBar2.Value += +1
                    Next
                    reader.BaseStream.Flush()
                    If InStr(s, "File") Then
                        If bool = True Then
                            writer.BaseStream.Flush()
                            writer.Close()
                            ProgressBar1.Value = 0
                        End If
                        bool = True
                        s = s.Replace("File", Nothing)
                        Dim file As New IO.FileInfo(s)
                        Dim o As String
                        o = file.Directory.FullName
                        o = o.Replace(":", Nothing)
                        Dim file_write As New IO.FileInfo( _
                          FolderBrowserDialog1.SelectedPath & "\" & o & "\" & _
                          file.Name)
                        Dim folder As New IO.DirectoryInfo( _
                        FolderBrowserDialog1.SelectedPath & "\" & o)
                        folder.Create()
                        writer = New IO.BinaryWriter(file_write.Create)
                    Else
                        ProgressBar1.Value += +1
                        Dim int As New TextBox
                        int.Text = s
                        int.Text = int.Text.Replace(".", Environment.NewLine)
                        Dim str As String
                        ProgressBar1.Maximum = int.Lines.Length
                        For Each str In int.Lines
                            If str = "" Then
                            Else
                                ProgressBar1.Value += +1
                                Dim byt As Byte = str
                                writer.Write(byt)
                            End If
                        Next
 
                        writer.Write(Environment.NewLine)
 
                    End If
                End While
                reader.Close()
                writer.Close()
                Button2.Enabled = False
                ProgressBar2.Value = 0
            End If
        End If
        ListBox1.Items.Add("Wiederherstellen abgeschlossen.")
        LoadingThread2 = New System.Threading.Thread(AddressOf SaveFile)
    End Sub
 
    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem3.Click
        LoadingThread2.Start()
    End Sub