For Each DateiPfad As String In System.IO.Directory.GetFiles(Ordnerpfad, _
  "*.500")
 
   Dim k_lines() As String = System.IO.File.ReadAllLines(Dateipfad) 
 
   '... restlicher Code
 
   System.IO.File.WriteAllLines(Dateipfad, k_lines) 
Next DateiPfad