BTW it's even getting worse, when I try to zip the bakfile created getting an error, propably because the verify still running and the bakfile is in use....

 

 

 

Having the same problem,

 

Dim WithEvents oVerifyEvent As SQLDMO.Restore

...........................

'verify events

Private Sub oVerifyEvent_Complete(ByVal Message As String)

    PrintStat Message

End Sub

 

Private Sub oVerifyEvent_NextMedia(ByVal Message As String)

    PrintStat Message

End Sub

 

Private Sub oVerifyEvent_PercentComplete(ByVal Message As...