VBScript läuft nicht komplett durch

'Alte Textdateien löschen  
	Const DeleteReadOnly = True
 	Set objFSO = CreateObject("Scripting.FileSystemObject")  
	objFSO.DeleteFile("c:\TempDa~1\*.txt"), DeleteReadOnly  

'Einstellungen zum Export updaten  

	Dim fso, MyFile
	Set fso = CreateObject("Scripting.FileSystemObject")  
	Set MyFile = fso.CreateTextFile("C:\Progra~1\Arexx\Temper~1\export-sample2.cmd", True)  
	MyFile.WriteLine("merge= no")  
	MyFile.WriteLine("grain = 0")  
	MyFile.WriteLine("file= c:\Tempda~1\Westring2 .txt")  
	Datum = Right("0" & Day(Date), 2) & "-" & Right("0" & Month(Date), 2) & "-" & Year(Date)  
	MyFile.WriteLine("start = " & Datum)  
	MyFile.WriteLine("end = 31-12-2100")  
	MyFile.WriteLine("sensors=all")  
	MyFile.Close

'Exportieren der Werte aus der Software in die Textdatei  

	Set WshShell = WScript.CreateObject("WScript.Shell")   
	WshShell.Run("C:\Progra~1\Arexx\Temper~1\export.exe C:\Progra~1\Arexx\Temper~1\export-sample2.cmd")  


	
'Schreiben in die DB  


Const pfadmesslogs = "\\S001APS021.rku.net\C$\TempDaten\"  
Const pfadmesslogs1 = "\\S001APS026.rku.net\C$\TempDaten\"  
Const pfadmesslogs2 = "\\S001APS024.rku.net\C$\TempDaten\"   
Const DBConnectionstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Temperaturprojekt;Data Source=S001APS021.rku.net"  

Set classTemperaturLogger = New TempLogger


Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFile = objFSO.GetFolder(pfadmesslogs2)

For Each file In objFile.Files

	classTemperaturLogger.LogDateipfad = file
	'WScript.Echo file  
	classTemperaturLogger.Dateiname = file.Name
	'WScript.Echo file.Name  
	classTemperaturLogger.SplitDateiName
	classTemperaturLogger.ZuweisungSensorID
	classTemperaturLogger.WriteToDB
	
Next


Class TempLogger

	Public LogDateipfad
	Public Dateiname
	Public Sensor
	Public Split_DateiName
	Public Sensor_CO2
	
	
	Sub SplitDateiName()
			
		Split_DateiName = Split(Dateiname, " ")  
		'WScript.Echo Split_DateiName(0)  
		'WScript.Echo Split_DateiName(1)  
		'WScript.Echo Split_DateiName(2)  
		
	End Sub	
	
	Sub ZuweisungSensorID()
		
		If Split_DateiName(1) = "_25744" Then  
			Sensor = "25744"  
' 		ElseIf Split_DateiName(1) = "_8870" Then  
' 			Sensor = "8870"  
		Else
			Exit Sub
		End If
		
		If Split_DateiName(2) = "CO2.txt" Then		  
		
			Sensor_CO2 = "CO2"  
			
		Else		
			
			Sensor_CO2 = "Temperatur"			  
		End If

		'WScript.Echo Sensor_RH  
		
		
	End Sub	
	
	Sub WriteToDB()
		
		Dim arrFileLines()
 		i = 0
 				
 		Set objFSO = CreateObject("Scripting.FileSystemObject")  
 		Set objFile = objFSO.OpenTextFile(LogDateipfad, 1)
 				
 		Do Until objFile.AtEndOfStream
 				   ReDim Preserve arrFileLines(i)
 				   arrFileLines(i) = objFile.ReadLine
 				   i = i + 1
 		Loop
 				
		objFile.Close
		
		For l = LBound(arrFileLines) +5 To UBound(arrFileLines) - 1 Step 1
 					
 					split1 = Split(arrFileLines(l), "	")  
 					
					'WScript.Echo split1(0)  
					'WScript.Echo split1(1)  

					Set DBConnection = CreateObject("ADODB.Connection")  
					DBConnection.Open DBConnectionstring
					
					SQLString = "If '" & split1(0) &  "' NOT IN (SELECT datum FROM [S001APS021].[Temperaturprojekt].[dbo].[tbl" & Sensor_CO2 & "Messungen_" & Split_DateiName(0) & "]) "_  
								& "BEGIN "_  
								& "INSERT INTO [S001APS021].[Temperaturprojekt].[dbo].[tbl" & Sensor_CO2 & "Messungen_" & Split_DateiName(0) & "] (datum, messung, idsensoren) VALUES ('" & split1(0) & "', " & split1(1)& ", " & Sensor & ") "_  
								& "END"								  
					
					'WScript.Echo SQLString					  
 					Set Ergebnis = DBConnection.Execute(SQLString) 					
 					DBConnection.Close
 		Next

	End Sub	

	End Class