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

Public Class frmRenameFiles
 
 
    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)
        'Code der Routine vom obigen Post einfügen
    End Sub
 
 End Class

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]

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

Zitat:

Eine Änderung des Namens der Datei der Rechnung verändert die Rechnung nicht.

   '.....
   If lines(index).ToLower.Contains("auftragsnummer:") Then
     '....