Problema con una variable.

[GameOn]

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"

[GameOn]

Alguien me ayuda porfa.... :P

La tarea funciona pero no me envía email si falla...

[alexg88]

Depende de cuando quieras que se mande el email. Si quieres que se mande si falla alguno de los if, pon una variable indicando si ha fallado o no.

Código vb:

Option Explicit
Dim objFSO
Dim sobreescribir
Dim error = False
 
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
       
Else error = True
End If
Else exists = True
End If
Else exists = True
End If
 
 
If (error) Then
emamail "TEST DBSAE", "email@email", "PROCESO FINALIZADO"
End If