Habe den Code wie folgt angepass aber leider kein Erfolg gehabt!
schnipp ----------------
Inhaltlesen("C:\test.txt")
Function Inhaltlesen (spoolordnerdatei)
Set fs = CreateObject("Scripting.FileSystemObject")
' Dateiinhalt einlesen
' -1 = UNICODE, 1 = ASCII, 2 = Systemdefault
Set dateiinhalt = fs.OpenTextFile(spoolordnerdatei, ForReading, -1)
Inhaltlesen = dateiinhalt.readall
dateiinhalt.close
End Function
schnipp ----------------
Alle Formate habe ich durchprobiert erhalte trotzdem immer noch nur: ÿþS
Gruß
Bebo