Error en script VBS

28/04/2004 - 00:35 por Mortadelo | Informe spam
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.

Preguntas similare

Leer las respuestas

#1 Guillermo Rey
28/04/2004 - 00:54 | Informe spam
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.



Un saludo

Guillermo Rey

pon el rey como es debido y podrás escribirme...

Vigo (ESPAÑA)

Mensaje libre de virus
Escaneado con Norton Antivirus 2004

"Mortadelo" escribió en el mensaje
news:c6mn7r$dl2$
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.

Respuesta Responder a este mensaje
#2 Mortadelo
28/04/2004 - 01:05 | Informe spam
Gracias por la respuesta.
Hasta ahora no había hecho nada similar, pero la necesidad surgió al
querer aligerar de trabajo a mi esposa, que utiliza el Incredimail, ya
que estas carpetas se llenan de archivos inútiles que es preciso
eliminar periódicamente, y se me ocurrió automatizar el asunto.
Así que de "capturar el error" ni me hables... :-)
Gracias de nuevo.

Guillermo Rey escribió:
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.



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida