Public Class Form1
    Inherits System.Windows.Forms.Form
    Public StartPath As String
    Public SearchAt As String = "*.*"
    Public arFiles() As String
    Public nCountFound As Long
    Public nCountAr As Long
#Region " Vom Windows Form Designer generierter Code "
'End Region
 
    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem2.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            StartPath = FolderBrowserDialog1.SelectedPath
            Dim x As Long
            MyGetFiles(StartPath, SearchAt, True)
            ReDim Preserve arFiles(nCountAr)
            Dim s As String
            Dim file_write As New IO.FileInfo(TextBox1.Text)
            Dim writer As New IO.BinaryWriter(file_write.Create)
            For Each s In arFiles
                If s = "" Then
                Else
                    Dim file_read As New IO.FileInfo(s)
                    Dim reader As New IO.BinaryReader(file_read.OpenRead, _
                      System.Text.Encoding.Default)
                    writer.Write(Environment.NewLine & "ÐO~FD¶©¢šJLîøß¼DƒÜÆ" & _
                    file_read.FullName & Environment.NewLine)
                    While (reader.PeekChar > -1)
                        writer.Write(reader.ReadByte)
                    End While
                    reader.Close()
                End If
            Next
            writer.Close()
        End If
    End Sub
    Private Sub MyGetFiles(ByVal MyPath As String, ByVal SearchString As _
      String, Optional ByVal isFirst As Boolean = False)
        If isFirst = True Then
            nCountAr = 0
            nCountFound = 0
        End If
        Dim x As Long
 
        Dim arCurrentFolders() As String = System.IO.Directory.GetDirectories( _
          MyPath)
 
        For x = 0 To arCurrentFolders.Length - 1
            MyGetFiles(arCurrentFolders(x), SearchString)
        Next
 
        Dim arCurrentFiles() As String = System.IO.Directory.GetFiles(MyPath, _
          SearchString)
        For x = 0 To arCurrentFiles.Length - 1
            If nCountFound = nCountAr Then
                nCountFound += 10
                ReDim Preserve arFiles(nCountFound)
            End If
            arFiles(nCountAr) = arCurrentFiles(x)
            nCountAr += 1
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            TextBox1.Text = SaveFileDialog1.FileName
        End If
    End Sub
 
    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem3.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            If OpenFileDialog1.ShowDialog = DialogResult.OK Then
                Dim file_open As New IO.FileInfo(OpenFileDialog1.FileName)
                Dim reader As IO.StreamReader = IO.File.OpenText( _
                  file_open.FullName)
                Dim s As String
                Dim boo As Boolean
                boo = False
                Dim writer As IO.BinaryWriter
                reader.ReadLine()
                While (reader.Peek > -1)
                    s = reader.ReadLine
                    If InStr(s, "ÐO~FD¶©¢šJLîøß¼DƒÜÆ") Then
                        If boo = True Then
                            writer.Close()
                        End If
                        boo = True
                        s = s.Replace("ÐO~FD¶©¢šJLîøß¼DƒÜÆ", Nothing)
                        s = s.Replace(":\", Nothing)
                        MsgBox(s)
                        Dim file_write As New IO.FileInfo( _
                          FolderBrowserDialog1.SelectedPath & "/" & s)
                        Dim pfad As New IO.DirectoryInfo( _
                        FolderBrowserDialog1.SelectedPath & "/" & _
                        file_write.Directory.Name)
                        file_write = New IO.FileInfo(pfad.FullName & "\" & _
                        file_write.Name)
                        pfad.Create()
                        writer = New IO.BinaryWriter(file_write.Create)
                    Else
                        Dim b() As Byte = System.Text.Encoding.Default.GetBytes( _
                          (s + Environment.NewLine))
                        writer.Write(b)
                    End If
                End While
                writer.Close()
                reader.Close()
            End If
        End If
    End Sub
End Class