Error en script VBS

Hola, saludos.

No encuentro el grupo adecuado para exponer este problema, pero
tratándose de Windows XP quizás éste sea el mejor.

He hecho dos scripts en vbs para borrar dos grupos de carpetas.
El primero funciona correctamente, pero al ejecutar el segundo se genera
un error en línea 2, caracter 1, error "permiso denegado", código de
error 800A0046, y origen "error de Microsoft VBScript en tiempo de
ejecución".

Los scripts son los siguientes:

Set BorraRuntime = CreateObject("Scripting.FileSystemObject")
BorraRuntime.DeleteFolder "D:\Incredimail\Datos de
Incredimail\IM\Runtime\*.*"

Set BorraAttachments = CreateObject("Scripting.FileSystemObject")
BorraAttachments.DeleteFolder "D:\Incredimail\Datos de
Incredimail\IM\Identities\{F7E4AEE0-8C88-4707-BA5E-680B32381A99}\Message
Store\Attachments\*.*"

¿Cuál puede ser el error? Se trata simplemente de borrar dos grupos de
carpetas, pero no he conseguido hacerlo.

Tal vez haya otra forma de hacerlo, ya que en principio me fuí por el
camino más lógico utilizando el comando DELTREE de MS-Dos en un fichero
.bat, pero luego caí en la cuenta de que este comando no existe en el
DOS de Windows XP. Así que...

Gracias por la ayuda.

Venga, vamos por partes...

//// SCRIPT 1 CORREGIDO ////
Set BorraRuntime = CreateObject("Scripting.FileSystemObject")
BorraRuntime.DeleteFolder "D:\Incredimail\Datos de Incredimail\IM\Runtime",
True

//// SCRIPT 2 CORREGIDO ////
Set BorraAttachments = CreateObject("Scripting.FileSystemObject")
BorraAttachments.DeleteFolder "D:\Incredimail\Datos de
Incredimail\IM\Identities\{F7E4AEE0-8C88-4707-BA5E-680B32381A99}\Message
Store\Attachments", True

De todas maneras te queda mejor si capturas el error para conseguir evitar
que te diga ruta desconocida si el directorio no existe.