Problema con una variable.

[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