Set fso1 = CreateObject("Scripting.FileSystemObject")
  Dim oFolder As Object
  Dim oFile As Object
    pfad = "W:\Nutz-CDs\EDV-Daten\"
    ' Ausgangsverzeichnis
    Set oFolder = fso1.GetFolder(pfad)
    ' alle Dateien Verzeichnis anzeigen
    For Each oFile In oFolder.Files
        daten_einlesen pfad, oFile
    Next