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 += 1
          If lines(index).ToLower.StartsWith("auftragsnummer:") Then
 
              'Auftragsnummer in Zeile ermitteln
              Dim parts() As String = lines(index).Split(":"c)
              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