Es de mis primeros scripts asi que posiblemnte existan errores de novato.
Es un vbs para ejecutar en una tarea programada.
Necesito hacer que este script me envíe un email si no existe la carpeta, pero no lo he conseguido.
He puesto la función al final, y claro, tal como esta ahora siempre me envía el email. ¿donde pongo o como pongo el Else para que me envíe email solo si no existe el orignen. ¿?
Gracias de antemano.
El Script ahora revisa si existe la carpeta de origen y copia los archivos del
server al
server1 en dos ubicaciones distintas, al final borra los archivos del origen
Como puedo hacer, que si algo falla, o por ejemplo no existe la carpeta de origen me envíe un email con la función que he puesto al final(emamail) he puesto else en todas partes y nada...
Código:
Option Explicit
Dim objFSO
Dim sobreescribir
sobreescribir = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FolderExists("\\Server\trans\dbk00\datain\*.*")) Then
objFSO.CopyFile "\\Server\trans\dbk00\datain\*.*", "\\server1\Extractos", sobreescribir
If (objFSO.FolderExists("\\Server1\Extractos-copia")) Then
objFSO.CopyFile "\\Server\trans\dbk00\datain\*.*", "\\Server1\Extractos-copia", sobreescribir
If (objFSO.FolderExists("\\Server1\Extractos")) Then
objFSO.DeleteFile "\\Server\trans\dbk00\datain\*.*", True
End If
End If
End If
emamail "TEST DBSAE", "email@email", "PROCESO FINALIZADO"