Mensajes

Y puede que hayan muchos registros? Porque en realidad para una tabla con pocos datos y esos cuatro atributos no te hará mucha diferencia

Saludos

Lo estas concatenando mal, los simbolos & son como +, así que tienes Origen/Destino & (+) "Cuentas ..."

Código (vb) [Seleccionar] Expandir

set objfso=createobject("scripting.filesystemobject")
Origen = "C:\WS_origen\"
Destino = "C:\WS_destino\"

objfso.deletefolder Destino & "Cuentas.WebServices\bin"
objfso.copyfolder Origen & "Cuentas.WebServices\bin", Destino & "Cuentas.WebServices\bin",true

objfso.deletefolder Destino & "General.WebServices\bin"
objfso.copyfolder Origen & "General.WebServices\bin", Destino & "General.WebServices\bin",true

Saludos

Si las rutas bases son las mismas, podrías simplemente utilizar una variable, algo como ...

Código (vb) [Seleccionar] Expandir

set objfso=createobject("scripting.filesystemobject")

Carpeta = "bin"

objfso.deletefolder("C:\WS_destino\Cuentas.WebServices\" & Carpeta)
objfso.copyfolder"H:\WS_origen\Cuentas.WebServices\" & Carpeta,"C:\WS_destino\Cuentas.WebServices\" & Carpeta,true

objfso.deletefolder("C:\WS_destino\General.WebServices\" & Carpeta)
objfso.copyfolder"H:\WS_origen\General.WebServices\" & Carpeta,"C:\WS_destino\General.WebServices\" & Carpeta,true

objfso.deletefolder("C:\WS_destino\Interfaces.WebServices\" & Carpeta)
objfso.copyfolder"H:\WS_origen\Interfaces.WebServices\" & Carpeta,"C:\WS_destino\Interfaces.WebServices\" & Carpeta,true

objfso.deletefolder("C:\WS_destino\Mensajes.WebServices\" & Carpeta)
objfso.copyfolder"H:\WS_origen\Mensajes.WebServices\" & Carpeta,"C:\WS_destino\Mensajes.WebServices\" & Carpeta,true

objfso.deletefolder("C:\WS_destino\Operaciones.WebServices\" & Carpeta)
objfso.copyfolder"H:\WS_origen\Operaciones.WebServices\" & Carpeta,"C:\WS_destino\Operaciones.WebServices\" & Carpeta,true

objfso.deletefolder("C:\WS_destino\Productos.WebServices\" & Carpeta)
objfso.copyfolder"H:\WS_origen\Productos.WebServices\" & Carpeta,"C:\WS_destino\Productos.WebServices\" & Carpeta,true

objfso.deletefolder("C:\WS_destino\Riesgos.WebServices\" & Carpeta)
objfso.copyfolder"H:\WS_origen\Riesgos.WebServices\" & Carpeta,"C:\WS_destino\Riesgos.WebServices\" & Carpeta,true

objfso.deletefolder("C:\WS_destino\Seguridad.WebServices\" & Carpeta)
objfso.copyfolder"H:\WS_origen\Seguridad.WebServices\" & Carpeta,"C:\WS_destino\Seguridad.WebServices\" & Carpeta,true

Desde vbs no puedes utilizar APIs si no es recurriendo a otras aplicaciones como es el caso del paquete office.

En cuanto a lo del administrador de tareas, es igual en cualquier lenguaje, solo tienes que modificar la clave del registro

HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr

Saludos

Falta agregar que no es solamente una portada con enlaces, es un sistema completo

Saludos

A todos nos tocó comenzar alguna vez no? 

Saludos

Se debe a que en el propio script tienes abierto el archivo ...

En esta línea ...

Código (vb) [Seleccionar] Expandir

Set var = fso.OpenTextFile(objFolder.self.path & "\llistat-ortofotos.txt", 1)
... la línea 29, cuando lo cierras? 

Saludos

Despues con el mismo codigo pero en un script diferente me los borra sin problemas.

Con este script te funciona o no? quizás es porque el archivo no se cierra a su debido tiempo, y cuando intentas borrarlo da problemas.
Igualmente con el true que le has puesto al delete (para forzarlo) debería de ser suficiente.

Que es lo que intentas hacer exactamente?

Como digo, este es el script que funciona o el otro?

Saludos

Ya veo, igual acabo de probar con un lnk a un bat, y me funciona sin problemas 

Saludos

Ya veo, a mi también me funciona bien abriendo un lnk a una carpeta por ejemplo, pero uno a una imagen se abre y se cierra.

Y si directamente le pones la ruta a la cual apunta el lnk, o si abres el lnk y lees la ruta?

Saludos