Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
 
        Dim Dateinamen(), Dateitext() As String 'die beiden Arrrays
        Dim ordner As String = TextBox1.Text 'der Pfad des 
        ' wiederherzustellenden Ordners
 
        'die Komprimierungsdatei in zwei Arrays einlesen und gegebenenfalls 
        ' Fehlermeldungen
        'ausgeben
        Try
            FileOpen(1, ordner & "\eiof_aied.txt", OpenMode.Input)
            Dim a As String = -1
 
            Do Until EOF(1)
                a += 1
 
                ReDim Preserve Dateinamen(a)
                ReDim Preserve Dateitext(a)
 
                Dateinamen(a) = LineInput(1)
                Dateitext(a) = LineInput(1)
 
            Loop
 
        Catch
            MsgBox("Der Ordner konnte nicht gefunden werden.")
            Exit Sub
        End Try
 
 
 
 
        For i = 0 To UBound(Dateinamen)
            FileOpen(2, Dateinamen(i), OpenMode.Output)
            PrintLine(2, Dateitext(i))
            FileClose(2)
        Next
 
        MsgBox("Der Ordner wurde erfolgreich wiederhergestellt.")
 
    End Sub