FILEDIA Trouble With PUBLISH

From the command line, with FILEDIA off, the following happens:

Command: filedia
Enter new value for FILEDIA <1>: 0
Command: -publish
Enter name of sheet list <C:\WINDOWS\Temp\cecdwflogtemp.dsd>:

....which is exactly what I want. When I try to ensure this with VBA, I'm
still getting the dialog for the DSD file:

iOldFileDia = ThisDrawing.GetVariable("FILEDIA")
ThisDrawing.SetVariable "FILEDIA", 0
ThisDrawing.Save
ThisDrawing.SendCommand "-PUBLISH" & vbCr & DsdFileName & vbCr

This works, except that the dialog comes up and the user has to select it
and press ok.

Any thoughts appreciated.