Public Class Form1
 
    Private fbd As New FolderBrowserDialog
 
    Private WithEvents btnRename As New Button With _
        {.Parent = Me, .Text = "Rename Files"}
 
 
    Private Sub btnRename_Click(sender As Object, _
        e As System.EventArgs) Handles btnRename.Click
 
        With fbd
            .ShowNewFolderButton = False
            If .ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
 
            btnRename.Enabled = False
            Me.Text = "Dateien werden umbenannt"
            Me.Refresh()
 
            UmbenennenNachAuftragsnummer(fbd.SelectedPath)
 
            Me.Text = ""
            btnRename.Enabled = True
        End With
    End Sub
 
 
    Private Sub UmbenennenNachAuftragsnummer(ByVal folder As String)
        'Alle Textdateien im Ordner durchlaufen
        For Each file As String In IO.Directory.GetFiles(folder, "*.txt", _
          IO.SearchOption.AllDirectories)
 
            'Zeilen der aktuellen Datei lesen
            Dim lines() As String = IO.File.ReadAllLines(file)
 
            Dim index As Integer = -1, found As Boolean = False
 
            Do
                'Zeile mit Auftragsnummer suchen
                index += 2
                If lines(index).ToLower.StartsWith("auftragsnummer:") Then
 
                    'Auftragsnummer in Zeile ermitteln
                    Dim parts() As String = lines(index).Split
                    If Not parts.Length = 2 Then
                        Stop 'ungeeignete Zeile mit Auftragsnummer
                    End If
 
                    'Neuen Namen der Datei aufbauen
                    Dim newname As String = _
                    IO.Path.Combine(IO.Path.GetDirectoryName(file), parts(1)) & _
                    ".txt"
 
                    'Umbenennen
                    Rename(file, newname)
 
                    found = True
                End If
            Loop While Not found AndAlso index < lines.Length - 1
 
            If Not found Then
                Stop 'Keine Auftragsnummer in der Datei
            End If
        Next file
 
    End Sub
 
End Class