X6 Save a copy

[knowbodynow]

I'm trying to save a copy of a file to a USB stick in the background. This is the code I tried:

Sub SaveToStick()

    If Dir("Q:\") <> "" Then
    
        ActiveDocument.SaveAsCopy ("Q:\" & ActiveDocument.name)
        MsgBox "Saved as Q:\" & ActiveDocument.name, vbInformation, "File Saved"
    
    ElseIf Dir("M:\") <> "" Then
    
        ActiveDocument.SaveAsCopy ("M:\" & ActiveDocument.name)
        MsgBox "Saved as M:\" & ActiveDocument.name, vbInformation, "File Saved"
    
    Else
    
        MsgBox "Please Insert USB Stick", vbCritical, "Oops"
    
    End If


End Sub

But this ends up with CorelDraw X6 showing the saved copy. How can I get the save to take place in the background? Thanks.

[ddonnahoe]

The only thing I can think of is after your USB copies are saved, resave the document to it's original location, that way that is the one being displayed.

[shelbym]

I can confirm the behavior and agree, that it shouldn't change your ActiveDocument to the SavedCopy because this is the same behavior as SaveAs.

I will report it to Corel and see what they say.

-Shelby

[knowbodynow]

Thanks Shelby, I'll be interested to see what Corel say. I guess it's a bug.

[runflacruiser]

Hi.
As a work around maybe save the file, then move it if the usb directory is available.
~John

[SteveDude]

You've been around here long enough, we need to start calling you SomeBodyNow