Dateieigenschaften von txt-files wie Dateikodierung und darin verwendetes Trennzeichen (Tab , Komma etc) via batch-Datei auslesen und in neues textfile schreiben

Option Explicit

Const CharSetIdUTF8 = "EFBBBF"  
Const CharSetIdUTF16BE = "FEFF"  
Const CharSetIdUTF16LE = "FFFE"  
Const CharSetIdUTF32BE = "0000FEFF"  
Const CharSetIdUTF32LE = "FFFE0000"  

Const adTypeBinary = 1
Const adTypeText = 2
Const adSaveCreateOverWrite = 2


'Main Begin  

'Call FileConvertUTFToAnsi("Dateipfad")  

'Main End  


Sub FileConvertUtfToAnsi(ByRef File)
    Dim oFso, oBinaryStream, aBytes, sCharSetId, sCharSet, sText

    Set oFso = CreateObject("Scripting.FileSystemObject")  
    
    'Die ersten 3 Bytes (Dateikennung) der Datei einlesen  
    With oFso.OpenTextFile(File)
        sText = .Read(3)
       .Close
    End With
    
    'Dateityp-Kennung  
    sCharSetId = Hex(Asc(Left(sText, 1))) & Hex(Asc(Mid(sText, 2, 1))) & Hex(Asc(Right(sText, 1)))
    
    'Nur Dateityp UTF-8 und UTF-16 konvertieren  
    If sCharSetId = CharSetIdUTF8 Then
        sCharSet = "UTF-8"  
    ElseIf sCharSetId = Left(CharSetIdUTF32LE, 3) Then
        Exit Sub
    ElseIf Left(sCharSetId, 2) = CharSetIdUTF16BE Then
        sCharSet = "UTF-16"  
    ElseIf Left(sCharSetId, 2) = CharSetIdUTF16LE Then
        sCharSet = "UTF-16"  
    Else
        Exit Sub
    End If
    
    Set oBinaryStream = CreateObject("ADODB.Stream")  
    
    With oBinaryStream      'UTF-8/UTF-16-Datei in Byte-Array einlesen  
        .Type = adTypeText
        .Charset = sCharSet
        .Open
        .LoadFromFile File
         aBytes = .ReadText
        .Close
    End With
    
    With oBinaryStream      'Byte-Array im Ansi-Format in Datei schreiben  
        .Type = adTypeText
        .Charset = "x-Ansi"  
        .Open
        .WriteText aBytes
        .SaveToFile File, adSaveCreateOverWrite
        .Close
    End With
End Sub

CScript Meine.VBS //NOLOGO >>Ergebnis.txt

Dim FSO
Dim Ordner, Pfad
Dim Suchzeichen

Suchzeichen = ",,"  
Pfad = "C:\TestOrdner"  
Set FSO = CreateObject("Scripting.FileSystemObject")  

Set Ordner = FSO.getfolder(Pfad)
    For Each File In Ordner.Files
        Pfadangabe = File.Path
        Set AktuelleDatei = FSO.OpenTextFile(Pfadangabe, 1)
		AktuelleDaten = Split(AktuelleDatei.ReadAll,Suchzeichen)
		If Ubound(AktuelleDaten) > 0 Then
			Wscript.Echo "Die Datei [" & Pfadangabe & "] enthaelt falsche Trennzeichen!"  
		End If
        AktuelleDatei.Close
    Next

Set FSO = Nothing

Wscript.Echo "Die Datei [" & Fso.GetBaseName(Pfadangabe) & "] enthaelt falsche Trennzeichen!"  

Dim FSO
Dim Ordner, Pfad
Dim Suchzeichen

Suchzeichen = ",,"  
Pfad = "C:\TestOrdner"  
Set FSO = CreateObject("Scripting.FileSystemObject")  

DateienEinlesen(Pfad) 'hier die Sub-Routine aufrufen  

Private Sub DateienEinlesen(tempPfad)
Set Ordner = FSO.getfolder(tempPfad)
    For Each File In Ordner.Files
        Pfadangabe = File.Path
        Set AktuelleDatei = FSO.OpenTextFile(Pfadangabe, 1)
		AktuelleDaten = Split(AktuelleDatei.ReadAll,Suchzeichen)
		If Ubound(AktuelleDaten) > 0 Then
			'Wscript.Echo "Die Datei [" & Pfadangabe & "] enthaelt falsche Trennzeichen!"  
			Wscript.Echo "Die Datei [" & Fso.GetBaseName(Pfadangabe) & "] enthaelt falsche Trennzeichen!"  
		End If
        AktuelleDatei.Close
    Next

   For Each Unterordner In Ordner.SubFolders
        Ordner = Unterordner.Path
        DateienEinlesen (Ordner)
   Next
End Sub

Set FSO = Nothing
Set Ordner = Nothing
Set AktuelleDatei = Nothing