'Erzwinge Deklaration
Option Explicit
 
'Konstanten- und Variablendeklaration
Const PFAD = "c:\test"
Const ForReading = 1
Const ForWriting = 2
Dim FSO, Datei, Inhalt
 
'FileSystemObject erzeugen und den Objektverweis einer Variable hinzuweisen.
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'Auflistung aller Dateien im Ordner "PFAD"
For Each Datei In FSO.GetFolder(PFAD).Files
  'Komplette Datei einlesen und in Inhalt speichern
  Inhalt = FSO.OpenTextFile(Datei.Path, ForReading).ReadAll
  'Führende und nachstehende Leerzeichen entfernen.
  Inhalt = Trim(Inhalt)
  'Zeichenfolge aus Inhalt extrahieren
  Inhalt = Mid(Inhalt, 2, Len(Inhalt) - 2)
  'Inhalt in Datei speichern
  FSO.OpenTextFile(Datei.Path, ForWriting).Write(Inhalt)
Next