VBS CSV Dateien auslesen und neu Schreiben

Dim fol As FileSystemObject

Basis = "C:mein pfad mit Ordner\"  

	Dim Verzeichnis As Folder
        Set fol = New FileSystemObject
	Set Verzeichnis = fol.GetFolder(Basis)
	'Anzahl der Dateien im Odrner (ohne Unterverzeichnisse):  
        anz = Verzeichnis.Files.Count
	MsgBox (anz)

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFile = objFSO.OpenTextFile("C:\mein pfad\desktop\csv_neu.csv", 1)  
Set fso = CreateObject("Scripting.FileSystemObject")  
Set fsoc = fso.CreateTextFile("C:\mein pfad\csv_neu_neu.csv", 1)  
Set txtfile = objFSO.OpenTextFile("C:\mein pfad\CSV\csv1.txt", 1)  
Set txtfile2 = objFSO.OpenTextFile("C:\mein pfad\desktop\CSV\csv2.txt", 1)  
REM Set txtfile = objFSO.ReadTextFile("C:\mein pfad\16029105-37837.txt", 1)  

IF objFile is nothing	Then
	
	Wscript.Echo("objFile ist nichts")  
	Wscript.Exit()
	
END IF
	
	FileName = "csv_neu.csv" ' Der Name der neu erstelen Datei in diese werden die Daten eingeschrieben  
	
	Const fsForReading = 1
	Dim oStream ' As TextStream  
	Dim FileName ' As String  
	Dim anzahl ' As Integer  
	Dim a ' As String  
	Dim result ' As String  
	Dim strDateiname, strInhalt, strInhaltHTML ' As String  
	Dim objFs           ' FileSystemObject Objekt  
	Dim objTextStream   ' Textstream Objekt  
	
	
	Basis = "C:\mein pfad\desktop\CSV\"  
	Typ = "txt"  

Set oStream = objFSO.CreateTextFile(FileName, True)	' Ist die csv_neu.csv oben deklariert  

IF oStream is nothing Then

	Wscript.Echo("oStream ist nichts")  
	Wscript.Exit()

END IF
	
	Dim fol As FileSystemObject
	Dim Verzeichnis As Folder
    Set fol = New FileSystemObject
	Set Verzeichnis = fol.GetFolder(Basis)
	'Anzahl der Dateien im Odrner (ohne Unterverzeichnisse):  
    anz = Verzeichnis.Files.Count
	MsgBox (anz)
	
FOR EACH Datei in fso.GetFolder(Basis).Files
	
		strDateiname = Datei
		
		Set objFs = CreateObject("Scripting.FileSystemObject")  
		Set objTextStream = objFs.OpenTextFile(strDateiname, fsForReading)
		strInhalt = objTextStream.ReadAll
				
		a = Split(result, ";")  
		
		oStream.WriteLine Trim(a(0))    ' Die writeline mache ich nur testweise das ganze wird noch automatischgemacht da die csv nicht immer nur 6 zeilen beinhaltet  
		oStream.WriteLine Trim(a(1))
		oStream.WriteLine Trim(a(2))
		oStream.WriteLine Trim(a(3))
		oStream.WriteLine Trim(a(4))
		oStream.WriteLine Trim(a(5))
		
		result = Join(a, ";" & vbCrLf)  
		
NEXT
objFile.Close
txtfile.Close