VBS Dateien als UTF-8 speichern

Ordner = "C:\Temp\test\test1\ori"  
AnsiPath = "C:\Temp\test\test1\ori"  
Utf8Path = "C:\Temp\test\test1\ori"  
Typ = "xml"  
Zusatz = "_neu"  
Set fso = CreateObject("Scripting.FileSystemObject")  

For Each File In fso.GetFolder(Ordner).Files 'alle Dateien des Ordners durchgehen  
    FileTyp = fso.GetExtensionName(File.Name) 'Dateityp ermitteln  
    'Typ überprüfen (alles in Kleinbuchstaben umwandeln, da "XML" <> "xml")  
    If LCase(FileTyp) = LCase(Typ) Then
        AnsiPath = File.Path 'Pfad ANSI-Datei  
        Utf8Path = fso.GetParentFolderName(AnsiPath) & "\" & fso.GetBaseName(AnsiPath) & Zusatz & "." & FileTyp' Pfad UTF-Datei  
        'ab hier wie im verlinkten Script  
        'Const AnsiPath = "C:\Temp\test\test1\ori"  
        'Const Utf8Path = "C:\Temp\test\test1\ori"  

        Const adTypeBinary = 1
        Const adTypeText = 2
        Const adSaveCreateOverWrite = 2
 
Dim BinaryStream, Text
    
Set BinaryStream = CreateObject("ADODB.Stream")  
        
With BinaryStream
    .Type = adTypeText
    .Charset = "x-Ansi"  
    .Open
    .LoadFromFile AnsiPath
     Text = .ReadText
    .Close
End With
        
With BinaryStream
    .Type = adTypeText
    .Charset = "UTF-8"  
    .Open
    .WriteText Text
    .SaveToFile Utf8Path, adSaveCreateOverWrite
    .Close
End With
        End If
        Next