save document to another file when target file is unavailable

[Anonymous]

Hello,

I have written a macro to save documents to several destinations over
a network.
When the network connection fails or I'm not linked to it the macro
crashed with out saving.
Is there some script that would detect the fact that the destination
file is not available and save into another available file

thanks very much

 

[Jezebel]

Dim pSuccess as boolean

On error resume next
MyDoc.SaveAs FileName:=....
pSuccess = (Err.Number = 0)
On error goto 0

If not pSuccess then
... save failed so do something else