VBS: Fehler 800A01B6

'On Error Resume Next  

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objMessage = CreateObject("CDO.Message")  

Dim fso
Dim objLogFile

Set objMessage = CreateObject("CDO.Message")   
objMessage.Subject = "Error on Script loeschen_x-x.vbs"  
objMessage.From = "errorman@loeschen.ch"   
objMessage.To = "email@domain.ch"   
objMessage.Textbody = "Es hat einen Fehler im Script gegeben bitte schauen Sie beiligendes Logscript an..."  

Set fso = CreateObject("Scripting.FileSystemObject")  
Set objLogFile = fso.OpenTextFile("C:\Users\<Benutzername>\Desktop\" & Date & ".log",2,true)  

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2   

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ip"  

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25    
objMessage.Configuration.Fields.Update


objLogFile.Writeline "##### Start - " & Now & " #####"  



if WScript.Arguments.Count = 2 Then
	strOrdner = WScript.Arguments.item(0)
	intTage = CInt(WScript.Arguments.item(1))
else
    objMessage.Textbody = "loeschen_Wichtig.vbs Verzeichnis AnzahlTage"  
	objMessage.send
	msgbox ("Syntax: loeschen_Wichtig.vbs Verzeichnis AnzahlTage")  
end if


Set objOrdner = objFSO.GetFolder(strOrdner)


intZahl = 0 'Die Variable wird auf 0 gesetzt  


For Each objDatei In objOrdner.Files
	diff = DateDiff("d", objDatei.DateModified, Now)  


	If LCase(objFSO.GetExtensionName(objDatei.name)) = "xyz" Then   


		if diff > intTage Then


			objDatei.Delete
			intZahl = intZahl + 1


		End If


	End if


Next


For Each objUnterordner In objOrdner.SubFolders


	diff = DateDiff("d", objUnterordner.Datecreated, Now)  


	Doku = Doku & vbCrLf & DateDiff("d", objUnterordner.DateModified, Now) & vbTab & objUnterordner.Name  


	If diff > intTage Then


		objUnterordner.Delete
		intOrdner = intOrdner + 1


	End If  


Next

objLogFile.Writeline Mid(Doku, 3)

objLogFile.Writeline "##### Ende - " & Now & " #####"  

objLogFile.close



if Err.Number <> 0 then
	objMessage.send
end if