Set filesys = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")

If filesys.FolderExists("C:\Temp") Then
	Set objFolder = filesys.GetFolder("C:\Temp")
	For Each File in objFolder.Files
		If LCase(filesys.GetExtensionName(File)) = "txt" AND DateDiff("D", File.DateLastModified, Now) >  0  Then
		File.Delete true
		End If
	Next
End If

If filesys.FolderExists(WshShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Local Settings\Temp") Then
	Set objFolder = filesys.GetFolder(WshShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Local Settings\Temp")
	For Each File in objFolder.Files
		If LCase(filesys.GetExtensionName(File)) = "txt" AND DateDiff("D", File.DateLastModified, Now) >  0  Then
			File.Delete true
		End If
	Next
End If